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EDITORIAL 


L'évolution du matériel dont disposent Les 
s'oriente fermement vers La gamme 16 et 32 bits. 


adhérents JEDI 
En tête du 


hit-parade IBM et Compatibles (clônes aux yeux bridés) 
talonnés de près P3r ATARI ST et COMMOUORE AMIGA. On ne 
parle presque plus d'APPLE 11, HECTOR HRX, THOMSON et 


autres familiaux. A qui La “faute” ? 


Prenons Le cas THOMSON: voici une machine qui aurait pu, 
Lors de L'évolution de 5a gamme, exploiter un 005 existant 


style Flex ou 059 tout en accusant une baisse de prix plus 
prononcée, Mais Ll'inertie Commerciale semblant être La 
force dominante, notre chère compagnie nationale 


s'évertuait à vendre au prix fort des logiciels incopiables 
qui étaient plus abordables sur d'autres systèmes. 
Résultat, exit THOMSON. Que peut-il encore attendre d'un 
marché qui ne l'attend Pas. À moins d'une "révolution" dans 


Le concept du micro familial, l'avenir s'annonce BOUCHE. 
Les autres ont pris Les devant, On ne compte plus Les 
compatibles. Acquérir un Compatible (pour moins de 5000 Fr 


maintenant), c'est se garantir L'accès 4 des milliers de 
logiciels de qualité, utilisés par des millions de 
personnes de part Le monde. C'est disposer d’une palette 


routines qui font La 


impressionnante de cartes et d'accessoires éprouvées 
permettant d'étendre à l'infini Les Capacités du système. 


Donc, ce qui fait La valeur d'un Système ne tient pas tant 
à Ses qualités techniques propres, ce dont pratiquement 
personne ne peut juger avec objectivité, mais à La qualité 
et au nombre de logiciels et d'accessoires disponibles. 
Dans ce domaine, trés peu de machines peuvent prétendre à 
l'universatité, même dans Le domaine de l'informatique 
lourde dont Les applications restent trés spécialisées 


On peut faire un parrallèle entre 
micro-informatique et l'évolution 
mieux vaut savoir S'acclimater aux conditions Les plus 
diverses, varier SES menus et être peu encombrant. 
Pourquoi croyez-vous que Les rats ant survécu aux 
dinasaures? 


l'évolutiuon de La 
des espèces animales: 


Cependant, it restera toujours des Systèmes marginaux 
mais il ne pourront percer que s'ils savent copier Les 
fonctions normal lement traitées par La majorité des autres 
systèmes. Pour exemple, Le NOVIX4000 sembte tres 
prometteur, mais il ne sera vraiment intéressant que quand 
on disposera d'un BASIC ou d'un PASCAL écrit à partir de 
FORTH-NOVIX4000: il est des concessions nécessaires pour 
survivre. 
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Les autres 


différence entre JEDI et 


Vous n'y croyez toujours pas à L'I.n.? Pourtant c'est comme L'êre nucléaire, on y est en plrin dedans. 


anglais courrament? Alors faites Un tour outre-Rhin et dites-nous ce Que VOUS y avez vu, Et 


A ce train Là, on va bientôt avoir droit à fBASE III et ASTON TATE va faire La queute... 


Quand on à diffusé La routine $SEXECUTE, nous ne pensions pas qu'un aussi petit 


: 16 
Programme pourrait faire 


SOMMRIRE 
MS00$S PRISE EN COMPTE OU CLAVIER OANS UN FICHIER BATCH 
Ce sont parfois des petits rien comme ces 
revues, 
1.0. INTRODUCTION A L'INTELLIGENCE ARTIFICIELLE 
FORTH CONFERENCE DU FORTH MODIFICATION LABORATORY 
Vous parlez 
profitez-en pour faire un peu de tourisme et n'abusez pas de La biëre, 
FBASE II SOUS MS00S 
VARIABLES CHAINES EXECUTABLES 
couler autant d'encre. 
APL RECREATION APL: LE PGCO 


Depuis quand avez-vous quitte Les bancs 


de l'école? 


16 
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ce qui veut dire: si L'octet de AL est supérieur à 48 c'est 


supérieur et ceci implique de: 


- tous Les autres codes seront 
décroissant. 


PRISE EN COMPTE DU CLAVIER 
OANS UN FICHIER BATCH SOUS MSDOS 


; par Jean-Marie PREMESNIL 
esse 


Je connais des personnes capables d'écrire des programmes 
entiers en "BATCH FILES*, ces fichiers de commande M5/005 
interprétés, IL est toutefois une fonction qui, quoique 
trés utile, manque à cet interpréteur : La prise en compte 
d'une touche au clavier. Car L'équivatent de KEY - 
WRITE(Kbd,..:) - INPUTS - getch() €FORTH, Turbo Pascal, 
BASIC, C: respectivement), avec ou sans écho n'a pas été 
implémenté dans L'interpréteur -génial par ailleurs-. Donc 
La seule solution laissée au programmeur est de créer des 
petits fichiers X.BAT avec X Le choix de L'utilisateur. 


Ces programmes, quoique de faible Longueur, prennent chacun 
un bloc de 512 octets, donc sont trés gourmands en mémoire 
de masse. 


Pour remédier à cela deux programmes de 8 Chuit) octets 
chacun suffisent à satisfaire La demande générale (ces 
programmes prennent quand même 512 octets mais ils ont Le 
net svantage d'être deux). 


Je tes ai baptisé CODE.COM et ECODE.COM, Le deuxième avec 
écho. Voici Les programmes: 


MOV AH,00 
INT 16 
MOV AH,4C 


MOV AH,01 
INT 21 

MOV AH,40 
INT 21 


Explications : de trés nombreuses fonctions du DOS sont 
appelés par des commandes d'interruptions, ceci est une 
méthode privilégiée d'appeler certaines routines trés 
utiles. IL existe 256 possibilités d'interruption. Trois 
nous intéressent particulièrement. 


- INT 16h Interruption de type IBM intéressant La gestion 
du ctavier, En mettant au préalable L'accumulateur AH à 00 
L'interruption arrête Le programme et attend qu'une touche 
du clavier soit pressée. Le code ASCII de cette touche est 
chargée dans l'accumulateur AL et Le programme continue. 


= INT 21H Interruption de type D0S regroupant Les 
principales fonctions de gestion de L'ordinateur. En 
mettant au préalable L'accumulateur AH à 01 L'on obtient La 
même fonctionnement que par l'interruption ci-dessus mais 
avec écho sur L'écran. Si L'on charge L'’'accumulateur de La 
vateur 4C H, on provoque L'arrêt normal du programme. 


Bien. Maintenant nous allons voir comment utiliser L'un de 
ces deux fichiers. Donc nous avons dans L'accumulateur AL 
Le code ASCII du caractère frappé. or, hasard 
extraordinaire, il existe une fonction BAT qui justement 
teste L'accumulateur AL pour savoir si il y à eu une erreur 
transmise par Le D0S. Cette commande est ERRORLEVEL dans 
une Ligne du genre 


IF ERRORLEVEL 48 SUITE 


à dire au code ASCII O0, effectuer SUITE. J'ai bien dit 


- mettre en premier Le code immédiatement supèrieur pour 


prévenir Les erreurs et effectuer une boucle où Lancer un 
message d'erreur; 


placés par ordre 
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ERRORLEVEL sert à tester évidemment L'accumulateur pour 
détecter Les erreurs à La suite d'une commande MS/D06. Si 
La commande est exbcoutbe avec succès, Le registre AL est à 
00H sinon, seton Le type d'erreur, il prendra une vateur 
définie. 


Comment faire ces programmes ? Personnellement Le premier 
je L'ai écrit directement en... éditeur Turbo Pascal (a) 
en utilisant Les CTRL-P suivi du caractère correspondant 
au code, avec une petite difficulté pour introduire Le 00H 
Cje suis sorti de L'éditeur, passé en QUERTY en pressant 
CTRL-ALT-F1, j'ai cherché Le &@, retourné en Turbo, fait 
CTRL-@ pour O0H, retourné sous DOS, passé de nouveau en 
AZERTY en pressant CTRL-ALT-F2, repassé sur Turbo, fait 
quelques mouvements de relaxant à mes pauvres petits 
daigts endoloris...). Bien entendu, un autre traitement de 
textes pourra faire aussi bien L'affaire (Wordstar, Edix, 
Personnal Editor, etc.). 


Une autre possibilité est de Les définir en utilisant 
DEBUG du DOS. Appeler DEBUG. Le “prompt” est Le tiret (-). 
A partir de Là, effectuer Les commandes entre crochets et 
ENTER. En précisant que l'origine du programme sera à 
100H CA 100), entrer tout simplement Les codes assembleur 
tels qu'écrits ci-dessus avec un retour à chaque Ligne. 
DEBUG traduira. Quand terminé, valider par un dernier 
retour chariot, Le "prompt" (mais comment peut-on traduire 
ce mot en français ?) revient. Puis donner Le nombre 
d'octets du programme en appelant Le registre CX [CR CXJ) et 
en Le forçant à 8 [8] après Les deux points; ensuite 
nommer Le programme [N X:1CODE.COM]) Cou) CN X:\ECODE.COM) 
puis écrire Le programme ainsi réalisé [WJ. Pour terminer, 
sortir de DEBUG ([Q). 


Bien entendu, d'autres méthodes de mini-programmation 
machine sont possibles, comme pour exemple La réalisation 
de créateurs de Logiciels en Langages évaluês. Je Laisse 
au choix du Lecteur L'option choisie. 
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INTRODUCTION A L'INTELLIGENCE ARTIFICIELLE 
par Jean-Marie PREMESN!: 


INTRODUCTION 


L'informatique Laisse de PLUS en plus La place de ta 
logique binaire et du calcul de précision au raisonnement, 
voir au bon sens. Voici venu Le temps où l'introduction de 
données au clavier se fait en Langage naturel, où 
L'ordinateur "comprend" Les paroles et Les manuscrits. 


La nécessité d'accéder au plus grand nombre s'est fait 
sentir autour des années 70 Lorsque Les systèmes Se sont 
réduits en taille et augmentés en puissance. 


Nous sommes actuellement dans une période où Les 
ordinateurs multiplient Leur capacité par 10 et divisent 
Leur coût par 2 tous Les 10 ans. Les concepteurs de 
Logiciels sont obligés de rendre Leurs produits conviviaux 
en raison de La banatisation et de l'accessibilité des 
micro-ordinateurs. 


L'intelligence artificielle désigne tous Les traitements 
qui font penser que L'ordinateur tient des raisonnements 
humains. 


INTELLIGENCE, DEDUCTION, LOGIQUE 
HISTORIQUE 


SOCRATE -470--399: Syllogismes, induction, maïeutique de 
La pensée humaine. 


Blaise PASCAL 1623-1662: Première machine arithmétique à 
L'âge de 19 ans. Fonde Les principes du calcut des 
statistiques. 


Charles BABBAGE 1792-1871 et Ada LOVELACE: Inventent tes 
principes de base des ordinateurs modernes. Posent Les 
principes des machines à calculer à quatre opérations et 
L'auto- programmation. 


Machine de TURING 1936: Machine universelle à bandes 
perforées, Les principes de base des processeurs de La 
première génération. 


VON NEWMAN et  SHANON: Dégagent Les règles qui peuvent 
permettre de jouer et de gagner automatiquement à certains 
jeux de statégie Calgorithme de Minimax) 


Langage IPL 1955: Ancètre des Langages de manipulation des 
Symboliques et non uniquement de nombres, 


GENERAL PROBLEM SOLVER 1958: Système automatique de 
raisonnement logique avec buts et sous-buts. 


1975-2000 (7): Systemes experts, aides à La décision, 
Langages naturets, reconnaissances diverses (formes, 
parole, etc.) 


APPLICATIONS ET DOMAINES 


JEUX : 
- Echecs, jeux ce rôte. 


SYSTEMES EXPERTS (S.E.): 
= MYCIN: systeme de diagnostic medica: conçu 8n 1973, te 
premier S.E. reconnu. 


- PROSPECTOR: système de recherche geotogique et miniere. 
Quelques centaines de générateurs de S.E.actueltement sur 
Le marché permettent aux entreprises et aux particuiiers 
de développer des applications ur micros et minis 
CExpert2 de MVP, Guru de ISE-Cégos sur micros par ex.). 


La gestion technique centralisée (G.T.C.) qui consiste à 
grouper tous Les renseignements d'un ensemble d'outils 
techniques pour sa gestion et 5a maintenance, peut tres 
bien être commande par un S.E. En raison de sa souplesse 
de programmation et de sa facilité d'accès, cet outil 
CEMPLaCera dans un proche avenir Les Logiciels Lourds et 
difficiles à gérer et à dépanner. 


TRADUCTEURS: Lexicaux, grammaticaux, sémantiques. Nous 
connaissons Les traductions du style mot à mot qui sont 


généralement en dehors de tout Le contexte de L'écrit. IL 
a fallu des mémoires et des programmes de transcription 
trés importants pour que Les traducteurs prennent en 
compte La syntaxe et La grammaire des Langages traduits. 
Malgré ses perfectionnements, il arrive encore qu'un 
ordinateur traduise une phrase en anglais aussi banale 
que “time flies Like an arrow" par "Les mouches à temps 
aiment une fléche" au Lieu de "Le temps vole comme une 
flèche". On comprend La nécessité de se pencher sur La 
sémantique des Langages pour tenter de Les adapter. Cette 
performance est encore à affiner. 


CONCEPTION ASSISTEE PAR ORDINATEUR (C.R.0.): 


Les techniques de conception actuelles sont fondées sur 
des connaissances approfondies dans Les domaines 
spécifiques. On utilise de préférence des bases de 
données de grande capacité et des S.E. pour assister Les 
Logiciels graphiques de La C.A.0. Les utilisateurs de ces 
ensembles informatiques sont 

- Les industries aéronautiques et spatiales, 

- Les industries automobiles, 

= Les architectes et concepteurs de bâtiments et de 
travaux publics, 

- Les sociétés de conception de microprocesseurs, 

- gtc. 


LES LANGAGES DE CINQUIEME GENERATION 


LISP (1959) est Le premier Langage à manipuler des Listes 
qui ne sont pas des entités mathématiques. Ces Listes 
sont composées d'atomes réunis par des fonctions propres 
au langage qui permettent de Les structurer. 


PROLOG (1872) est un Langage déclaratif c'est à dire 
qu'il est capable de trouver une sotution par tui-méme à 
partir de propositions et de règles établies au 
préalable, 


SMALLTALK et PLASMA (1982) sont tous deux des Langages 
d'acteurs. L'idée est de considérer Les programmes comme 
une vaste collection d'objets qui s'envoient des messages 
et se répondent mutuellement 


TRAÏTEMENT DE BASES DE DONNEES 


Nous utiliserons de plus en plus Les Logiciels de 
transmission è partir de simples minitels où 
d'ordinateurs pour interroger des bases de données, Le 
volume grandissant des informations obligera Les 
concepteurs de logiciels à traiter Les bases de données 
par des programmes en intelligence artificielle. Les 
grands principes à mettre en place sont 


- La classification rapide des données, 

- L'interconnexion des données sur Leurs clés, 

- La recherche “instantannée" des fiches, 

= La recherche par L'utilisateur en Langage naturel. 


SOURCES SCIENTIFIQUES 


L'intelligence artificielle, ou plutot Le raisonnement 
artificiel trouve ses sources dans Les mathématiques 
dites modernes. C'est dire que ses principes ne sont 
Cannus que de fraiche date. 


Algédre de Boote: Ces principes ont amene directement Les 
bases de La togique qui sont essentiels aux talcuts 
informatiques puisque tout processeur est dérive d'une 
Logique binaire. 


Théorie des Ensembles: Les Principes amenés par Les 
recherches de Galo1s pont permis un développement 
Considérable notamment dans La theorie ces graphes et par 
ta, de La Frecherche opérationnelle c'’une part et des 
SOuS-ensembles flous d'autre part qui sont Les deux 
principes essentiels de L'analyse actuelle en 
intelligence artificielle. Les recherches actuelles sur 
L'intelligence artificielle sont paradoxalement axées sur 
Les domaines de La psychanalyse et de La médecine du 
CErVeau qui essalent de trouver Les mécanismes de La 
mémoire immédiate et du raisonnement syllogique. Ces 
recherches portent sur : 


= £es phénomènes de "trous de mémoire", 
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- La mémoire associative. 


APPORTS 


Les domaines Les plus prisés par L'intelligence 
artificielle se trouvent dans 


.- ta recherche scientifique (médecine, géologie recherche 
pétrolière, recherche fondamentale). 

= Les entreprises gestionnaires (banque assurance, 
administration), 

- Les entreprises de haute technologie (aviation,chimie, 
mécanique de précision, ingénierie). 


Les banques de données vont prendre dans un futur proche 
une part importante dans La recherche des S.E. du fait de 
l'accroissement des informations à traiter et de La 
complexité du système connectif. 


La reconnaissance des formes et de La parole peut être Le 
début de L'ordinateur “intetligent". Nous pouvons supposer 
qu'il commanderaà des robats ou des machines outils au seul 
son de La voix. Toutefois, ce domaine sera réservé à des 
applications particulières telles que La chirurgie, La 
prothétique, L'armée. . 


SYSTEMES OD'INTELLIGENCE ARTIFICIELLE 


JEUX Cette application n'est interessante que par Les 
apports mathématiques qu'elle engendre. Le jeu d'échecs 
est Le domaine qui a Le plus contribué au développement 
scientifique de L'intelligence artificielle gräce à La 
simplicité de 5es régles et à La complexité des phases de 
jeu : 

- surface délimitée facilement repérable, 

- Les pièces caractéristiques à déplacements simples, 

- Les phases de jeu à accroissement exponentiels au fur 
et à mesure de l'avancement de La partie. 


SYSTEMES EXPERTS 

INTRODUCTION Le sujet d'étude des S.E. concerne toutes 
Les activités de L'homme pour lesquelles aucune méthode 
mathématique ne peut être appliquée. Ce sont des 
programmes ayant pour objectif de fournir dans un domaine 
particulier Les mémes résultats que L'homme expert en ce 
domaine. 


Leur création provient du constat d'échec des programmes 
généraux d'intelligence artificielle. Dans La 
programmation classique, Les auteurs doivent prévoir et 
développer tous Les cas de figure. Les problèmes posés 
peuvent aboutir à une combinatoire telle que ces Logiciels 
deviendraient monstrueux. Exemple 


Pour indiquer à un médecin un diagnostic Lorsqu'il fournit 
Les symptômes, nous pourrions 

- construire une structure de données contenant toutes 
Les matadies et Leurs symptômes, - demander au médecin de 
taper Les symptômes, - puis parcourir notre structure 
jusqu'à ce que nous trouvions La maladie correspondante. 


La dimension de L'espace de recherche est telle qu'un 
programme semblable est irréalisable. 


Les SG.E. tentent d'aborder Les problèmes d'une autre 
façon: ils dégagent Le programmeur de cette tâche de 
gestion en simplifiant La mise en place du système. 
L'utilisateur d'un générateur de S.E. n'exprime que des 
fragments de connaissance, des réponses types à des 
situations élémentaires. Il a l'ambition de se spécialiser 
dans un domaine restreint de La connaissance et raisonner 
comme un expert humain. 


LEUR FONCTIONNEMENT 
Un générateur de S.E. est composé de 


- une base de connaissances faite de règtes simples qui 
sont appelées assertion. €Ces règles sont entrées par 
L'homme expert (le cogniticien). Par principe, ces règles 
ressemblent à des syllogismes socratiques et aboutissent à 
des "conclusions" qui sant en réalité des hypothèses de 
départ. 

- une base de faits etablie par Le candide. Ces faits 


devront être en relation directe avec La base de 
connaissances, c'est è dire qu'ils reprennent des 
assertions connues de La base de connaissance sans pour 
autant que L'hypothèse de départ soit perçue pie 
L'utilisateur. 


- un moteur  d'inférence, Logiciel programmé pour 
effectuer La démonstration autamatique d'une hypothèse de 
départ prise dans La base de connaissance à partir de La 
base de faits. Ce Logiciel peut travailler de trais 
façons différentes: à 


1) chainage avant: cette méthode de travail consiste à 
effectuer une recherche systématique dans toute La base 
de connaissances des règles 5e référant à La base de 
faits afin d'en dégager Les hypothèses de départ. 


2) chainage arriére: à l'inverse, ce procédé interroge 
L'utilisateur sur Les régles Les plus en amont pour 
aboutir logiquement à L'hypothèse de départ. Cette 
méthode de travail est beaucoup plus rapide et moins 
gourmande en mémoires que Le chainage avant. Toutefois, 
La base de connaissance doit être structurée plus 
sévèrement. 


3) chaînage Latéral: combinaison des chaînages avant et 
arrière. Cette méthode suppose un algorithme utilisant La 
pré-équivalence (voir annexe 1) pour catculer Les chances 
Les plus granges d'aboutir à une hypothèse de départ. La 
base de faits n'est prise en compte que si Le logiciel ne 
peut trouver par tui-même L'hypothèse de départ. 


LA PROGRAMMATION 


La programmation dans un S.E. n ‘est qu'une suite de 
règles proposées à L'utilisateur dans un ordre quelconque 
en apparence. En fait, il faut penser à sérier Les règles 
par affinité afin de réduire Les temps d'accès au 
minimum, de prévenir toutes répétitions inutiles et 
d'éviter Les boucles infinies. 


Nous atlons essayer de donner une méthodologie de 
programmation des S.E. D'abord un exempte de base de 
connaissance: 


“Gi La terre est séche et que je n'arrose pas, Les 
plantes vont flétrir. Mon jardin ne sera pas beau." 


Nous avons dans cet exemple : 


D - 2 assertions : La terre est sèche j'arrose hi 
- 1 conclusion Les plantes vont fLétrir 
- 4 hypothèse : mon jardin ne sera pas beau 
- 4 opérateurs Logiques : 51, ET, ALORS, NON. 
L ir) 
Ecrivons directement Les règles dégagées: 
-— (règle 1) =) 
SI La terre est sèche 


ET SI NON j'arrose 
ALORS Les plantes vont flétrir 


pe ÉPeQUE — 
SI tes plantes vont flétrir 

ALORS HYPOTHESE mon jardin ne sera pas beau 

-— (règle 3) 

SI NON Les plantes vont flétrir 

ALORS HYPOTHESE mon jardin sera beau 


A noter 2 points importants dans ce programme 


- L'hypothèse de La régle 3 est implicitement contenue 
dans La pnrase de départ, et cette hypothése est vraie 
dans tous Les Cas: 


- si La règle 1 ne prouve pas L'hypothèse de La règle 2, 
elle ne prauvera pas son contraire. L’ opération ALORS est 
La retation d'implication. 
cette relation est Le suivant 


FT 


1 
î 
) 
0 


Le diagramme de Karnaugh de 
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C'est pourquoi La regle 3 a éte ajoutee expressement. Si 
cette regle n'existait pas, Le Système aurait répondu “Je 
ne Sa15 pas Conciure" où un message equivalent. L'analyse 
d'un probléme est essentielle, nous l'avons vu avec ce 
petit programme. Nous allons définir quelques régles 
simples pour programmer un S.E: 


- Partir de toutes Les hypothèses de départ connues. 

- Faire un tableau général de toutes Les assertions 
aboutissant à chaque hypathése. 

- Sérier Les assertions en groupes généraux. 


- Scinder Les hypothégses en parties logiques selon Les 
groupes généraux. 
- Former chaque régle dans cet ordre sans oublier de 


commenter abondamment. 


TYPES DE SYSTEMES EXPERTS 


Les S.E. Les plus simples (que L'on peut aisémment trouver 
dans de nombreux ouvrages) ont un moteur d'inférence 
d'ordre zéro à chainage avant. Ils savent résoudre des 
syllogismes ou des compasitions de fonction à une ou 
plusieurs régles. 


D'autres SE. plus évolués ont un moteur d'inférence 
d'ordre 1 à chaînage avant et arrière et à facteurs de 
crédibilité. Ils peuvent traiter une centaine de règles et 


sont trés utiles pour accèder à La programmation et pour 
faire des experts simples mais performants. Ce type de 
Logiciel, édité par Les principales maisons de software, 


fonctionne sur micro-ordinateurs compatibles IBM PC. 


Les S.E. trés évolués peuvent avoir plusieurs moteurs 
d'inférence parallèles et fonctionnent sur des bases de 
données relationnelles. Ils sont trés Lourds et trés 


difficiles à programmer. Ces S.E. 
des domaines particuliers comme La 
recherche miniére. 


sont spécialisés dans 
médecine gu La 


LES TRADUCTEURS 


INTRODUCTION: 
La traduction automatique des textes à été L'une des 
recherches Les plus assidues de L'intelligence 
artificielle, mais tes résultats ont été moins rapides que 
ne Le pensaient Les premiers chercheurs. Au début, il à 
fallu essayer de réglementer trés strictement La 
grammaire, et ce sous forme d'entités mathématiques. Des 
1849, L'informaticien Warren Weaner tente ia traduction 
d'un texte par un ordinateur. Il s'apercçut bien vite que 
L'analyse lexicale arrivait à des aberrations telles que 
celle-ci “the spirit is willing but the flesh is wear" 
qui se traduit par “L'esprit est consentant mais La chair 
est faible" devient par La traduction Lexicale "L'atcool 
est prêt mais La viande est avariée". Les textes ne sont 
donc analysés que sous Leurs deux aspects syntaxique et 


sémantique. 

FONCTIONNEMENT : 

Le grand progrès de La grammaire moderne découle ce 
L'analyse informatique. La grammaire en constituants 


immédiats structure une phrase selon un arbre comme défini 
ci-dessous 


F verbe 
as LL) 6 
} 
È > GN > adjectif 
—————" article 
=) nom 
Fe | 
pe _> EN 
r avec : s _— 
P = là phrase : 
GN 5 Le groupe nominal | 
Î  GV = Le groupe verbal | 
Î PP = La preposition ! 
EL » | 
Ceci constitue L'arbre syntaxique compris facilement par 


un Logiciel. Le texte de départ est éclaté en un arbre qui 
sert de génération au code machine. Le Logiciel tente ce 
réécrire Le texte dans La Lanque désirée en suivant La 


syntaxe appropriée. Si cette traduction échoue le 
Logiciel revient en arrière pour changer La structure de 
L'arbre pour faire correspondre Les syntaxes des deux 
Langages. 


Actuellement, un Logiciel de traduction syntaxique 5e 
présente comme un ensemble de logiciels indépendants qui 
s'occupent chacun d'une partie spécifique de La syntaxe 
et qui sont dirigés par un programme maitre. 
Parallèlement, Les informaticiens ont e5sayés de prendre 
une phrase non pas comme une entité mathématique mais 
sémantique, dans te but d'avoir une approche plus 
naturelle de La pensée humaine. 

Les hypothèses de division des phrases par cas ont été 
nombreuses. Pour exemple un groupe de mots peut-être un 
instrument, un Lieu, une durée, un sujet, un objet, un 
but, une source, etc. Une phrase peut être syntaxiquement 
égale à une autre mais être sémantiquement totalement 
différente 


"Pierre mange une glace à La fraise" 
et “Pierre mange une glace à La maison". 
La traduction dans une autre Langue de ces 
peut avoir une syntaxe différente. 


deux phrases 


On utilise, dans ces logiciels des 
des groupes de mots 


"démons" qui repèrent 
significatits (proverbes, sentences, 


Lieux communs, idiotismes) et qui Les traduisent 
systématiquement. 
Tout ceci est bien joli mais ces traducteurs ne peuvent 


actuellement s'occuper que de textes simples et de portée 


générale. On s'imagine mal La taitle en mémoire 
considérable que doit avoir un Système de traduction 
automatique pour s'occuper d'une seule phrase de Marcel 


Proust, 


LES APPLICATIONS 


Les travaux de Linguistique appliques à L'informatique 
dévient vers des Logiciels de construction de récits. Les 
écoliers, premiers bénéficiaires, commencent déjà à avoir 
des programmes d'élaboration d'histoires sur des thèmes 
programmés semblables aux jeux de rôles; Les caracteres 
des personnages, Les rapports entre eux, Les situations, 
Les aventures sont enregistrés et peuvent être modifiés 
par l'imaginaire des enfants, 


LA CAO: 


INTRODUCTION: 
Ruparavant, ce 
partie de {la 
Maintenant ces 
S.E. que de La reconnaissance des 
générateurs automatisés. 


domaine de programmation ne faisait pas 
famille de L'intelligence artificielle. 
vastes logiciels intégrent aussi bien des 
formes, où bien des 


Les programmes de conception assistée par ordinateur sont 
de lourds ensembles comprenant 


— Un Logiciel de dessin en deux ou trois dimensions, 

= Un Calculateur interface avec Les fichiers de dessin, 

- des optimiseurs de formes, ce dispositions, de 
volumes, 

-  quetquef des commandes 


ois pour La 
réalisation des prototypes 


d'automates 


ensembles tournent sur de gros systèmes (VOX, IBM 
9) detes de memcires allant de 10 Mo à plusieurs Go. 
TS  proorammations sont trés delicates pt toujours 


utilisent ces systemes. 


DES TMDESUDE CO 

Les L.A.C. qui peuvent être intégrées a des systemes tvpe 
IEM P£ sont destinées à ‘architecture, au dessin 
technique et quetquefois à La création artistique. Ces 
-ogiciets CCONCEPTION 30, MAC SPACE sur MACINTOSCH, VERSA 
CAC) oeuvent étre couples à d'autres programmes de 
Caicuis où d'optimisation. 


LE TRAITEMENT DES BASES DE DONNEES 


de S.E. se sont toujours penchés sur La 


Les dévelapoeurs 
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prise en compte des bases de données dans Leur systéme. La 
préoccupation majeure était d'alimenter Les bases de 
connaissances d'un système par Les bases de données. 
Ceux-ci peuvent être progammés facilement et contenir de 
plus vastes informations notamment Les relations entre Les 
données. Les premiers  S.E. étaient difficilement 
interfaçables avec Les bases de données en raison de 
L'incompatibilité des Langages de programmation. Ces 
difficultés ont été surmontés. La tendance actuelle est de 
prévoir des transmissions à distance d'un S.E. sur une 
base de données pour disposer de connaissances accessibles 
à tous. 


On peut également combiner La technique des S.E. avec 
celle des bases de données soit pour établir une interface 
entre Le S.E. et La base de données, soit à partir de La 
S.E£. construire une base. de données, sgit concevoir à 
partir de ces deux systèmes un nouveau systéme de 
connaissances. 


Nous n'en sommes encore qu'au stade des théories mais La 
recherche actuelle est de concevoir un systéme de 
métaconnaissances par Le principe de boot-strap c'est à 
dire un autogénérateur de S.E. à partir de ses propres 
connaissances. Pour celà il est indispensable d'utiliser 
comme support de La base des connaissances une base de 
données qui pourra contenir toutes tes connaissances 
nécessaires à sa régénération. : 


CONCEPTION DE L'INTELLIGENCE ARTIFICIELLE 


LANGAGES DE L'INTELLIGENCE ARTIFICIELLE, 

LANGAGES DE PREMIERE GENERATION: 

Les premiers Langages de L'informatique étaient une 
sucession de 1 et de O0 programmés à partir de 
boutons-poussoirs ou d'interrupteurs commandés par 
d'habiles manipulateurs. Les programmeurs devaient 
transformer chaque commande par Le code binaire compris 
par La machine. Les instructions étaient à L'époque très 
Limitées (Cadressages directs, sauts conditionnels en 
nombres restreints), Les programmes de ces années 50 
(l'age de pierre de L'informatique) se contentaient de 
calculs numériques complexes et pouvaient même effectuer, 
par des algorithmes appropriés, des calculs différentiels. 


LANGAGES DE DEUXIEME GENERATION 

Le langage assembleur à grandement facilité La tâche de 
programmation. Cela suppose déjà un programme intégré au 
système qui traduit chaque primitive dans son code 
binaire. Ce Langage est encore utilisé de nos jours. Les 
années 55 à 62 ont été florissantes en recherche 
d'algorithmes performants qui sont toujours valables, que 
ce soit dans Le domaine du calcut au bien du tri, ou 
encore du traitement d'informations élémentaires (CORDIC, 
HUFFMAN, MESNER, VON NEWMAN). 


C'est à cette epoque que Les chercheurs commencent 

à intégrer des logiciels à Leur machine pour faciliter La 
tôche des programmeurs. Ce sont Les fameux compilateurs 
qui à L'instar de L’assembleur, traduisent Les commandes 
en codes binaires. La différence est que chaque commande 
peut engendrer un bloc de codes qui est en soi un mini 
programme. 


LANGAGES DE TROISIÈME GENERATION: 


Les années 62 ont vu naitre de beaux Langages encore 


réputés: 

— FORTRAN Langage prisé des mathématiciens, toujours en 
vigueur, constamment actualisé. FORTRAN s'utilise 
principalement dans Les universités et écoles à 


orientation mathématique, technique et scientifique. 

- COBOL comme FORTRAN, toujours en vigueur, Langage de 
prédilection des gestionnaires et des comptables. Utilisé 
encore dans Les grandes administrations. 


-  PL1 compromis entre FORTRAN et COBOL. També en 
désuétude. 
- BASIC Le Langage Le plus pratiqué au monde. Invente 


par Le mathématicien d'Einstein, qui ne connaissant rien 
en informatique a créé un Langage simple d'utilisation à 
partir du FORTRAN. 

# LISP : Le premier Langage de L'intelligence 
artificielle. Les premiers S.E. ont été écrit dans ce 
Langage. Toujours en vigueur et opérationnel: 

- ALGOL un des Langages Les plus répandus dans Les 
universités, il est malheureusement tombé dans l'oubli. 
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C'est peut être grâce à lui que 
devenue ce qu'elle est. 


L'informatique est 


LANGAGES DE QUATRIEME GENERATION: 

L'évolution de La programmation à demandé dans Les années 
72 des Langages structurés. Ces années ont vu l'avènement 
de plusieurs Langages, certains dérivés des précédents, 
d'autres entièrement repensés pour des applications 
particulières. La majorité de ces Langages ont été conçus 
et implémentés par un seul homme. La philosophie et La 
structure de ces Langages sont imprégnés de L'esprit de 
Leur concepteur. 


- FORTH (68) Charles MOORE (USA): Ce Langage a été 
utilisé pour La première fois sur Le radiotéléscope de 
Kitt Peak USA. En 1976 FORTH fut. adopté comme standard de 
programmation pour l'astronomie. Une réunion annuelle 5e 
tient aux USA pour maintenir Le standard de ce Langage à 
ta pointe des recherches informatiques. Actuellement, est 


-disponible un micro-processeur programmable directement 


en FORTH. Ses performances sont remarquables. 


- LOGO (70) : S. PAPERT (USA): Ce Langage est 
directement tiré du LISP, à été adapté pour faciliter Les 
graphiques simples sur L'écran. De plus, il peut 


manipuler des Listes complexes d'objets qui Le rend 
particulièrement apte à La programmation en I.A. 

-  PASCAL (723 : WIRTH (ZURICH) Par un souci de 
programmation structurée et en réaction aux 
“bidouiltages" géniaux des informaticiens de l'époque de 
La deuxième génération, ce Langage a été créé en vue de 
L'élaboration de programmes -et d'algorithmes strucurés 
par Le concept de la méthode descendante. Les 
universitaires ont été unanimes à adopter ce Langage. - 
- PROLOG (72) : A. COLMERRUER (MARSEILLE): Langage 
déclaratif conçu par un graupe de recherche en 
Intelligence Artificielle. Ce Langage ne Se veut pas 
rapide en exécution mais rapide en programmation. Il est 
régi par un moteur d'inférence à chainage arrière qui 
peut Le faire ressembler à un S.E. 

- Langage C (1973) : THOMPSON, RITCHIE (USA): Autour du 
système UNIX, un groupe de chercheurs a créé un langage 
polyvalent et tout son environnement. Le Langage C gagne 
du terrain par rapport aux autres Langages. Il est à La 
base de nombreux systèmes d'exploitation et Logiciels 
connus (Unix, OBase III, Multiplan III, FrameWork, etc). 

- ADR (1873) (USA): Langage composite, élaboré en 
plusieurs étapes et par plusieurs commissions, on peut 
dire qu'il ne reflète pas La simplicité. Le cahier des 
charges trop rigide de ce Langage ne permet pas de 
L'implanter sur n'importe quel ordinateur. Les seuls 
utilisateurs connus sont L'armée américaine qui tente 
d'en faire un standard. 


LA CINQUIEME GENERATION: LES NOUVEAUX LANGAGES 

- SIMULA: Ce Langage descend directement de L'ALGOL 
(comme Le Pascal). IL sert à créer des objets à partir de 
classes spécifiques et à simuler des interactions entre 
ceux-ci. 

- MODULA-2: lssu de Pascal, et comme celui-ci, Langage 
procédural, MODULA-2 intégre des fichiers comme s'il 
s'agissait de fonctions et permet ainsi La 
multi-programmation,sur des systèmes multi-processeurs. 

- PLASMR: Langage mixte, Les procédures définissent Les 
"acteurs" et Les déclarations manipulent et font réagir 
ces acteurs Les uns par rapport aux autres, 

- SMALLTALK: Comme PLASMA, mais plus répandu car déjà 
implanté sur certains systèmes (MACINTOSH, GEM, WINDOW), 
ce Langage définit un environnement bien particulier 
écran haute résolution, souris, imprimante Laser.Ces 
quatre Langages ont un point commun teur double niveau 
d'accès. Le premier niveau définit des modules 
indépendants et Leur réactions Lorsqu'ils sont confrontés 
à d'autres modutes. Le deuxième niveau, plus convivial, 
permet de combiner ces modules pour répondre à une 
situation donnée. 

- LE SYSTEME JAPONAIS En 1980, Le Ministère japonais de 
L'industrie et du Commerce Extérieur (MITI) avec 8 
groupes indutriels entament un programme dit de 5ème 
génération qui devra 5e développer en 10 ans. L'objectif 
est de créer un ordinateur capable de résoudre Les 
problèmes rencontrés en I.A. avec un budget ce prés d’un 
mitlard de dollars. Malgré Les énormes moyens mis en 
oeuvre (laboratoires, recherches formelles, produits 
technologiques nouveaux) L'objectif initial semble être 
compromis. Le Langage adopté par ce groupe est Le PROLOG. 
Les techniques qui progressivement ont abouti au niveau 
actuel n'ont pas été prises en compte en phase initiale 
de ce projet. Petit à petit, La dérive du programme de 


départ s'est orientée vers des systèmes souples et 
maléables. L'ordinateur intelligent espéré en 1980 s'est 
transformé en de multiples unités indépendantes. Leurs 


interconnections posent des difficultés aux constructeurs: 
- LE SYSTEME AMERICAIN: 

Dans La mème optique que Les japonnais, Les U.5.4. ont 

voutu développer une stratégie dans La bataille de La 5ème 


génération.Les constructeurs privés, contrairement à 
l'autre camp n'ont pas suivi Les directives de 
l'administration. Ces groupes préféraient suivre Leur 


propre voie en toute discrétion pour se prémunir contre un 
éventuel échec ou à l'inverse 5e réserver l'exclusivité 
d'un succès. Seuts Les grands groupes administratifs ont 
accepté ce projet. (NASA, Pentagone, CIA, Universités). Le 
Langage adopté est L'ADA. Les résultats de ces recherches 
ne Seront pas connus de sitôt du grand public, ces travaux 
sont pour La plupart destinés à un usage militaire. 

- LE SYSTEME EUROPEEN: 

L'Europe aussi à son programme de 5ème génération, IL 
s'appelle “ESPRIT" (European Stratégic Program of Research 
in Information Technologies).12 grandes entreprises du 
secteur électroniques ont répondu à L'appel de La 
Communauté Européenne Philips, Nixdorf, Siemens, 
Thomson, Téléfunken, ICL, OLivetti, Stet, GEC, CGE, AEG, 
Plessey. 


Les 2 principes fondamentaux du programme européen sont: 


- Les recherches effectuées 
conjointe d'industriels 
Communauté, 

- Les projets sélectionnés doivent se situés en avat de 
La recherche fondamentale et en amont de La réalisation 
concrète du produit.Conjointement, Les Universités 
spécialisées en I.A. se sont associés aux entreprises pour 
apporter Leur savoir en recherche fondamentale. 


doivent être l'oeuvre 
issus d'au moins deux états de La 


L'AN 2001: 

Les technologies qui apparaissent nous promettent, par 
Leur capacité et Leur rapidité, des machines axées sur 
trois grands principes L'intelligence, La convivialité 
et La fiabilité.Le stockage et L'usage de L'information et 


Suite ce la page PA 


de La connaissance sera 
naturels, accessible au plus 
à des bases de 
exploitables. 


effectué par des 
grand nombre, 
connaissances et de 


Langages 
lnterconnecté 
données facilement 


Même si Les trois 
pas répondre à l'attente espérée, Les 
études faites ne pourront être que 
L'ensemble de La communauté informatique. 


grands projets de L’I.A. ne semblent 
retombées des 


bénéfiques à 
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MANIFESTATION: 
Les journées d'Avignon Avril 
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Participant DM 490 ,-- 
(hébergement hors du château, trois repas par jours et 
documents de La conférence) 

Etudiant DM 320,-- 
Chébergement au du château, trois’ repas par jours et 


documents de La conférence) 


EUrOFORML est Un meeting international réunissant des 
pratiquants de L'informatique utilisant FORTH en tant 
qu'outil pour résoudre Leurs problèmes. IL est prévu de 


faire Lecture, 
utilisées. 


démonstration et exposition des techniques 


Cette année, Le thème de La conférence sera axé sur Le 
matériel et Les possibilités offertes par Le saut 
qualitatif que représentent Les nouveaux processeurs FORTH, 


La conférence aura Lieu au château de Stettenfels (12ème 
Siècle) aux environs de Hilbrann prés de Stuttgart, RFA. Le 
château peut accueillir 60 invités et peut réunir 110 
participants pour Les conférences. La réservation hotelière 
située à proximité du chateau peut ètre arrangèe 


La Langue utilisée Lars 
Le FORTH, bien entendu. 
c'est à dire qu'il n'y à pas d'agenda 
débuter La réunion. Si vous 
choisissez Le format suivant: 


des conférences 
La conférence 65 


sera & anglais et 
t autc-organisée, 
des priorités pour 
avez une idér à présenter. 


papier de présentation 
il doit représenter 10 minutes de temps ce baroie eh 
exposant au groupe les possibilités et retombées 
immédiates, 


schéma de présentation 
Îl vous sera assigné un emptacement de presentation 
des Schémas éventuels à partir duquel vous pourrez 
présenterer votre idée à un petit groupe de personnes 


dans des pièces séparées. Ceci est particulièrement 
pratique pour Les démonstrations de matériel et de 
logiciel. 


boutiques/stands 
VOUS pouvez organiser ou 
début de conférence et en fonction de La demande. 


participer à des boutiques en 


Un document en Langue anglaise sera publié après la 
conférence; Les papiers inclus’ à ce document sont issus du 
travail des participants et reproduits par photocopie en 
début de conférence. 


Les inscriptions sont closes début août. Un acompte de 
200,-- OM par personne est requis (paiement en Deutsch 
Mark -faut vous y faire, il n'y a pas encore d'écus-, 


eurochèques en monnaie étrangère ou transfert de fond sur 


“Postgiro compte n° 5632 11 - 208, code bancaire 200 100 
20). Le reste de La somme sera demandé en début de 
conférence. La place est Limitée, Les premiers arrivés 


seront Les premiers servis 


Cette année, nous réservons un tiers de La place aux 
étudiants. Les invités risquent donc de prendre Leurs 
repas au château, mais de ne pouvoir être hébergés. Il est 
possible de venir avec son matériel de camping, Là pelouse 
du château étant assez confortable. 


Pours les auteurs 


Les papiers présentés 
inctUus au document) 


pour La conférence (qui seront 
doivent étre envoyés au “Forth 
Gesellschaft eV" avant Le 1er septémbre 1987. Le format 
PSt 44 avec une marge de 2,5 cm tout autour. Chaque page 
sera numérotée et porter Le nom de l'auteur. Les documents 
"'excêderont pas 15 pages 


Poour réserver et 
écrire ou appeler: 


envoyer Les papiers de conférence, 


C.0. OSTEN 
Gneisenaustr, 23 { D-2000 HAMBURG 20 / (BRD-RFA) 
19-49 40 422 1694 où 19-49 40 490 5195 
Enumêros valables depuis La France métropotitaine) 
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FHRÉASGE TI I sois MS—-DOS FEAT - 


JEDI à publié dans son nuséro 22 (Janvier 88), un prograsse de gestionnaire de fichiers noasé FBASE. Une 
version rénovée à paru dans FORTH DIMENSIONS, voluse VIII/4 de Nov/DecBb, auteur E. Petsche, Le prograane proposé 
ici en est une traduction/adaptation {écrans 1 à 28), augsentée d’une partie MENU’ afin d’en rendre l'utilisation 
plus ’conviviale’ (écrans 21 à 33). 


Ce prograsse peraet à l'utilisateur de définir et d'initialiser un fichier, d'entrer des données, 
d'interroger un fichier sur une cosbinaison quelconque de chasps, d'effacer des enregistresents et de aodifier les 
valeurs de chaaps des enregistreaents, 


FICHIER est le aot de définition des fichiers. Le chasp parasètre {le PFA) d'un sot défini par FICHIER 
contient : 


au déplacenent 0 , le nuséro du prenier écran du fichier ; 


U 
2 , le nosbre aaxiaal d’enregistresents du fichier ; 
: 4 , le nosbre d'octets par écran (bloc) ; 
È b , la taille d’un enregistrement, en octets ; 
. 8 , le nuséro d'enregistresent courant ; 
’ 18 , l'adresse de la liste des chaaps de ce fichier. 


CHAMP est le ant de définition des chanps. Le PFA d’un aot défini par CHAMP contient : JS 


au déplacesent @ , La largeur du chaap ; 

: 2 , le déplacesent (offset) par rapport au début de l’enregistrenent ; 

% 4 , Le type du chaap. 

Le presier enregistresent de chaque fichier ( @ RECORD } contient des inforsations concernant la longueur 
du fichier (LASTREC) et le nosbre d’enregistresents actifs dans le fichier (#ACTIVE), ces inforaations occupant 
les 4 preaiers octets de cet enregistrement, 


L'écran 28 donne les définitions de FICHIER et de CHAHP pour une application: ici, un index des nuréros 
parus de JEDI. Trois parasètres doivent être spécifiés lors de La définition d'un fichier: le bloc de début lécr. 
49), le nosbre saxisal d'enregistresents (588 : soyons optiaistes}, et la longueur d'un enregistrenent (100 
octets}, 


De sêse trois parasètres doivent être spécifiés lors de la définition d’un champ : son type, son 
déplacesent et sa largeur (cf écr. 28). Cette dernière doit être donnée sêse pour les types ’nuaériques’, en vue 
de leur affichage. 


CHAMPS cospile la liste des CFA des aots de chasps, l'adresse de début de cette liste est placée dans 
FIELO-LIST. Syntaxe : €nos_du_fichier) N CHAMPS suivi des noss des chasps. cf. écr, 18 et 20. 


Lors de la presière cospilation du prograsse, du soins celle de l'écran d'application, il est iapératif 
d'exécuter NEWFILE {nos_du_ fichier), qui initialise les inforaations de L’enregistresent 8. 


Dans cette version, le prograane est Lancé autonatiquesent, et vous place dans le MENU. [1 utilise le aot 
$SEXEC, qui lance une cossande FORTH lorsque celle-ci est placée dans une chaîne ‘coaptée’. Ce mot est repris de 
JEDI n°33, ‘Trois routines’ (rendons à Marc ...). 


La fonction 1 du HENU, ‘Ouverture d'un fichier”, n’est justifiée que si plusieurs fichiers sont installés 
avec Le prograsme de base: c'était le cas ici, où 3 revues cohabitaient; il faut bien entendu leur faire des 
écrans d'application {tel que 28) distincts, et surtout leur donner des noss de chasps tous différents. 


Deux sodes de recherche sont possibles: ’Recherche Norsale’, fonction 2 (STEP) et ‘Recherche Sélective”, 
fonction 3 (SELECT). Le presier affiche l’un après l’autre tous les enregistrements trouvés correspondant aux 
clefs spécifiées. Ce aode perset aussi la correction ou la suppression d’un enregistresent, Le second n'affiche 
que les chasps désignés, toujours selon Les clefs spécifiées. Le nombre "d'extraits" possibles est arbitrairesent 
fixé à 5 (écr.18): en fait, La liaite dépend de La longueur des chanps sélectionnés, leur affichage doit tenir sur 
une seule ligne d'écran. 


La recherche 5e fait sur une quelconque combinaison de chaaps pour chaque enregistreaent d’un fichier. Les 
conditions sont SUPRA, INFRA, EST et NESTPAS, auxquelles s'ajoutent les opérateurs logiques ET et OÙ, Le noabre 
aäxiaal de conditions (0#) est fixé à 4, ce qui sesble raisonnable car TIB n'accepte que BB caractères, 
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CHERCHE est le sot d'interrogation ’utilisateur?. Il est isplicite, suivi du nos du fichier, dans les 
fonctions de recherche du MENU. La cossande est placée dans TIB, et le Progranse exécute le aot suivant, qui est 
un nos de fichier, et en fait le fichier courant, Puis le nosbre de sots suivant Le nos du fichier est coapté 
(RARGS), puis incrésenté de !, Si ce nombre divisé par 4 donne un reste nul, le nogbre d'argusents est valide, et 
le quotient est le nosbre d’argusents pour cette recherche: il est utilisé par FOUND? et Q-ARRAYS. Les argusents 
de recherche (les valeurs à COsparer aux chaaps spécifiés) sont placés dans TARGETS. Le nombre saxiaal d’argusents 


de recherche est 30, Les chaînes d'arguments nusériques sont converties par NOMBRE avant d’être envoyées par BRING 
dans TARGETS, 


Note: le prograsne original utilisait Le sot HUMBER du noyau, lequel en cas d'erreur exécute ABDRT. Pour 
éviter une sortie intespestive du MENU, il faut donc redéfinir ce sot. De sêse BOOT à reaplacé ABORT* dans 
certains aots, pour cette raison. 


Le fichier est alors examiné, en vérifiant d'abord que l’enregistresent est actif (REMOVED?), alors les 
argusents de recherche sont exécutés par FOUND?, Lorsque toutes les conditions ont été vérifiées, un drapeau est 
empilé. S'il est vrai, toutes les conditions sont vérifiées pour l'’enregistresent courant, il est alors affiché, 


Un sot d'affichage de la totalité du fichier n’a pas été inclus: il suffit de faire par exenple 


SUJET NESTPAS XX ET NUMERO SUPRA 25 pour visualiser tous les enregistrements correspondants, 


GLOSSAIRE FBASEII. 


"OPEN variable contenant le PFA du fichier courant, 

*FIELD variable contenant le PFA du chaap courant, 

FIELD-LIST adresse dans le PFA du fichier courant contenant l’adresse de sa liste dec changs, 

LASTREC ler act. de l’enregistresent 8, contient le nuaéro du dernier enregistreaent, 

#ACTIVE Jèee oct. de l’eñregistresent @, contient le nosbre d’enregistrenents actifs. 

FICHIER aot de définition d’un fichier. Lorsqu'un aot défini par FICHIER est exécuté, il place 
son PFA dans "OPEN. 

CHANP sot de définition d’un chasp. Lorsqu'un act défini par CHAMP est exécuté, il place son 
PFA dans *FIELD et empile l'adresse du chaap. 

FLD-WIDTH contient la longueur du thasp courant, 

FLD-TYPE les types de chaap sont ALPHA (codé 8, pour du texte), SIMPLE (codé 2, nombre siaple), 
DOUBLE (codé 4, noabre double) et #4 (codé 6, pour un affichage en ’dollars”). 

TABLE not de définition pour les tables d'exécution des fonctions dépendant du type, Lorsqu'un 


aot défini par TABLE est exécuté, il utilise 1a largeur du chaap courant pour 
sélectionner la fonction devant être exécutée, 


(ENTER) table d'exécution contenant les aots d'entrée de tous les types de chasps. À l'exécution, 
les sots de cette table attendent une adresse de chaap sur La pile. 

DISPLAY table d'exécution contenant les aots d'affichage de tous les types de chasps. Une adresse 
de chap doit &tre espilée avant l'exécution, 

COMPARE table d'exécution contenant les mots Conparant les chanps aux argusents de recherche. Ces 
sots attendent 2 adresses sur la pile et retournent -1, @ ou { pour €, = qu }, 

ENTER desande à l'utilisateur l'entrée du contenu d’un chasp, et la place dans le fichier. 

RENOVED? eapile un drapeau vrai si l'enregistresent courant à été sarqué conte effacé, 

#ARGS cospte le noabre d’argueents restant dans TIB. Ce act devra 8tre aodifié si les congandes 
se font par chargement d'un bloc. 

0t nonbre saximal de conditions de recherche. 

HITS nosbre d’enregistresents trouvés lors de la recherche, Utilisé cosse drapeau, et par 
SCRFUL? pour arrêt de l'affichage sur ‘écran plein’. 

LOGICALS tableau des opérateurs logiques (ET et OU) devant être exécutés par la recherche, 

OPERANDS tableau des opérandes de Chasps devant ête cosparés lors de la recherche. 

CONDITIONS tableau des conditions de recherche {SUPRA, INFRA, EST, NESTPAS). 

TARGETS adresse de La zone de Sauvegarde des argusents de recherche, ici en HERE+208. 

+TARGET utilise l'indice eapilé conse déplacesent dans TARGETS. Synonyse: TARGET, 

BRING table d'exécution pour les sots asenant les arguaents de recherche dans TARGETS. 

GET-TARGET asène le act suivant de TIB dans TARGETS en utilisant l'indice eapilé coame déplacesent, 

HEADER sot de fornatage d’en-tête dans le aode d'affichage SELECT, 


HD NIE- mar ÀA9I6F7 
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SELECT sot utilisateur peraettant la sélection des chasps à afficher. 


STEP sot utilisateur contrôlant l'affichage séquentiel des enregistresents. 

CHAMPS place les chaaps définis dans La Liste de chasps du fichier. 

NENFILE initialise un nouveau fichier en aettant LASTREC et #ACTIVE à 8. 

G-ARRAYS utilise le nosbre espilé (qui doit être le nosbre de conditions d'une recherche 


particulière) coane indices de boucle pour charger les tableaux de recherche avec les 
argusents trouvés dans TIB. La presière entrée dans LOSICALS est toujours un NOCP. 


FOUND? conpare les chasps avec les argusents de recherche pour détersiner si les conditions (ou 
l clefs) de recherche sont satisfaites, 

FRON exécute le aot suivant dans TIB, qui doit être un nos de fichier défini. 

{FIND) - exasine chaque enregistresent du fichier courant, et le cospare (s’il n’est pas effacé”) 
aux conditions spécifiées par l'interrogation. 

CHERCHE sot utilisateur d'interrogation {de recherche). Vérifie que Le nosbre d'arguaents de La 
ligne de cossande est correct, puis exécute (FIND) 

NEXTREC si le nosbre d’enregistresents actifs est inférieur à LASTREC, le presier enregistresent 


effacé” (trouvé par FREE) est utilisé par la prochaine entrée. S’il n'en existe pas, le 
fichier est rallongé d’un enregistresent. 
MRITE parcourt la liste des chasps du fichier courant, deaandant et acceptant les entrées, 
ENTRE sot utilisateur générique d'entrée pour tous les chasps définis par FICHIER, 


Exemples d'utilisation. 


Nous allons supposer que seuls les écrans 1 à 28 ont été conpilés (la partie MENU’ n’est pas disponible). 
C'est d’ailleurs l’utilisation prévue dans l'article d’origine. Après 


NEWFILE JEDI , il faut entrer les enregistresents : 


ENTRE JEDI , et le prograase vous desande le presier chasp du presier enregistreaent: 


et vous n’avez plus qu’à vous arser de patience... 


Le aode STEP est pris par défaut. Pour rechercher les enregistresents des nuaéros 25 à 32 dont le sujet 
est FORTH ou LPB, entrons : 


CHERCHE JEDI SUJET EST FORTH OÙ SUJET EST LPB ET NUMERO SUPRA 24 ET NUMERD ENFRA 33, 


et les enregistresents correspondant à ces clefs seront affichés un à un, avec possibilité de les corriger 
ou de les effacer. 


En sode SELECT, il faut faire 


SELECT JEDI SUJET TITRE NUMERO DATE , puis 
CHERCHE JEDI SUJET EST LISP ET NUMERD SUPRA 15 


et cette fois l'affichage des enregistrements trouvés se fait ligne par ligne , sous un en-tête des chaaps 
sélectionnés: SUJET, TITRE, NUMERO et DATE. 


La compilation de la partie MENU’ sisplifie beaucoup ces manipulations, sais augaente évideasent la 
taille du prograsse. 


Shore Traduction/adaptation A. Jaccomard, Mai 1987. 
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’ 


et recherche dans un fichier, ainsi qu'un fichier JEDI pour ? 
? essais, qui est un index de la revue JEDI. 

La base de ce prograsse est extraite d'un article paru 
dans FORTH DIMENSIONS, voluse VII[/4, Nov/Dec 88 à “SIMPLE 
FILE QUERY" par E. Petsche. 


Pour utiliser ce prograsse et interroger le fichier, uti- 
lisez La fonction AIDE’ du MENU. 


, 
’ 
: 
; 
; 
? 
* 
, 
, 
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l 
V FRASEIT, chargesent. 28Nai87Ja 
ONLY FORTH ALSO DEF IMITIONS 


1 18 +THRU 
28 LOAD \ index pour JEDI, 


CR 55 VDO .( FBASEIL est chargé et utilisable. } 48 VDO 
CRCR .{ Chargesent et Lancesent du MENU d'utilisation.) CR 


28 22 +THRU 
24 32 +THRU 
\ Le sot suivant doit être adapté à l'application, cf écr. 25. 
t AUTO EMPTY-BUFFERS ONLY FORTH ALSO DEFINITIONS 
SOPEN MENU ; 
* AUTO 15 BOOT BOOT 


2 


\ OOER, NAKE, 3 AND, UNDO : vectorisation, 28Mai87JaD 


2 VARIABLE MARKER 

3 

4: DUER  CREATE L'2 NOOP BODY , DOES) @ A ; 

5 

6: (MAKE) RD DUP 2+ DUP 24 SWAP & BODY ! @ ?DUP 

T IF OR THEN; 

8 

9: MAKE STATE 8 IF COMPILE (MAKE) HERE MARKER ! 8, 
18 ELSE HERE (COMPILE) * BODY ! 1 STATE !  INJERPRET 
11 THEN; IMMEDIATE 

12 

13: AND COMPILE EXIT HERE MARKER @ ! : IMMÉDIATE 

14 

15: UNDO C’3 NOOP DBODY CCOMPILED BODY ! : 


a —————" — —— — —— ———" —— "re  , 


é 


\ Mats "fichier" spécifiques. 28Na147JaD 
: LASTREC 6 RECORD ; \Vat dernier enrgt {1gr du fichier). 
3 HACTIVE Q RECORD 24 ; \ nbr fich. non aarqués par REMOVE. 
: FICHIER (S 1g-enrgt ,nbr-sax-enrgt,nt-ler-ble -- } 
CREATE , \ bloc de début du fichier, 
it, \onbr aax d’enrgats du fich. 
DUP B/BUF OVER / # , À nbr d’oct/bloc. 
5 0 , 8, \ oct/enrgat, enrgat courant et adr liste chasps : 
D0ES> ‘OPEN ! ; 


VARIABLE ‘FIELD  \ pointe Le chanp courant. 

+ CHAMP \utilisation : ALPHA 1 32 CHAMP TITRE. 
CREATE , € igr ) , {offset } , { type 
D0ES> DUP ‘FIELD ! 2+ @ ADDRESS + ; 

s FLD-WIDTH ( --n ) ‘FIELD 8; \n= fargeur du chasp. 


- À Mots d'extension systèse. 


Ces écrans contiennent le prograsse FRASEII de création ? : 


3 
18Nai87Ja0 


t BLANK-PAD PAD 88 BL FILL ; 

TEXT {€ --) BLANK-PAD WORD COUNT PAD SWAP CHOVE) ; 
-TEXT { adt n ad2 -- # } 2DUP + SWAP DO DROP 1+ DUP 1- 
C8 1 C8 - DUP IF DUP ABS / LEAVE THEN LODP NIP ; 


3 “DOUBLE {af 2 -- f } \ cosse -TEXT pr nbr dbles, 
20 ROT 28 2SWAP D- 2DUP Da: 
IF 6 ELSE 2DUP .8 D) IF + ELSE -{ THEN THEN 


DR 2DROP R); 

: ARRAY  CREATE 22 ALLOT DES) SWAP 25 + ; 
IF-NOT COMPILE @= (COMPILE) IF ; IMMEDIATE 
WHILE-NOT COMPILE 8= (COMPILE) WHILE 5 IMMEDIATE 


en 


4 
\ Usage général. 
s OUI (6 --{=t si ’0° ou 0’) 
KEY SP@ 1 UPPER ASCII 0 = ; 
5 VDO (5 n--}) \ sode vidéo. 
27 EMIT 91 EMIT ENIT 149 EMIT } 
: CLS 27 ENIT 91 ENIT 56 EMIT 74 EMIT ; \ reaplace DARK. 
VARIABLE ÆHITS \ abr d’enrgats trouvés par la recherche. 
VARIABLE FIN? \ drapeau ’sortie de recherche’ en aode STEP 
VARIABLE IMPR \ drapeau d'iapression, 
18 CONSTANT #AFF À nbr d'enrgats affichés à l'écran. 
: IMPR? \ bascule d’iapression, 
IMPR @ IF PRINTING ON ELSE PRINTING OFF THEN ; 
: SCRFUL? \'arrêt sur écran plein, 
INPR @ IF-NOT #HITS @ AAFF MOD IF-NOT 
CR 55 VDG ." Appuyez sur une touche" 48 VDO CR KEY DROP THEN 
THEN ; 


29Mai87Ja) 


5) 
\ Exploitation des parasètres du fichier. 2BNai87Ja) 
VARIABLE ?OPEN \pointe le bloc du fichier courant. 
1 REC 'OPEN@ 8 +; \ adr du n° d'enregtstrat courant. 
8 LAYOUT ($ -- oct-enrgt, oct-bloc } 
OPEN 64+2; 
5 MAURECS ( - n) 
: READ (Sn--} 
O HAX DUP HAIRECS « 
orrect * QUIT THEN 
5 RECORD {nn -- a} 
LAYOUT #/N0D 
5 ADDRESS | -- 3 ) 
REC# @ RECDRD ; 
t FIELD-LIST ( -- a } ’OPEXN @ 
: REC-LEN P'OPEN 06+€ ; 


"OPEN 6 2# 8; \'nbr nax d'enrgts 
\Vtait de ‘n° le n° d’enrgt courant. 
IF-NOT ." auaéro d’enregistresent inc 
REC# ! ; 
\'espile adr. du n-iène enrgat. 
*OPEN @ @ + RLOCK + ; 
\espile adr. de l'enrgat courant. 
14 +; \ adr liste des chasps 
\Vigr d'un enrgt. 


9 
\ TABLES des fonctions dépendant du type. 28Mai87J230 


4 T-COMPARE  { at a2 -- n ) FLD-NIOTH SNAP -TEXT ; 

5 S-COMPARE {al a2 -- n } SWAP @ SAP @ - ; 

3 D-COMPARE {al à2 -- n°) -DOUBLE ; 

TABLE COMPARE T-COMPARE S-CONPARE D-COMPARE D-COMPARE ; 
1: SUPRA COMPARE @) ; \ pour “SUPERIEUR A" 

INFRA COMPARE @C ; \ pour "INFERIEUR À" 

: EST COMPARE 9- 
: NESTPAS COMPARE  ; 

\ Mots d'affichage d'enrgats. 

: .FIELD-NANE IMPR? ’FIELD @ BODY} DNAHE 
5 .FIELD IMPR? DISPLAY ; 

5 LINE IMPR? CR .FIELD-NAME SPACE DISPLAY ; 

5 RECORD FIELD-LIST À BEGIN DUP à ?DUP MHILE EXECUTE 


LINE 2+ REFEAT DROP ; 


.ID ASCII : EMIT ; 


TD N°36 -mai 1984 


1 


1 18 


@ \ TABLES des fonctions dépendant du type. 26Hai87JaD \ Mots d'entrées. 28Nai47Jal 
1 : : DASHES a -- ) SPACE OUP @ DG 95 EMIT LOUP 
2 @ CONSTANT ALPHA  \ déplacement dans les tables de fonctions. @ DO B EMIT LOOP ; \utilisé dans le "prospt” d'entrée. 
3 2 CONSTANT SIMPLE 5 INPUT QUERY ASCII & TENT ; 
4 4 CONSTANT DOUBLE : .PROMPT CR CR .FIELD-NAME SPACE FLD-NIDTH DASHES ; 
S & CONSTANT $$ : ENTER \ prospte, accepte et place les entrées des chanps 
6 NOMBRE NUMBER? IF-NOT 2DROP .PREMPT INPUT (CENTER) UPDATE ; 
7 49 VDO CRCR ." Entrez un nosbre ,.. " 48 VDO \ Hots de recherche. 
8 588 MS BOOT THEN ; : REMOVED? U rec# -- ? } RECORD C@ ASCII #= ; 
9 s FLD-TVPE { --n) ‘FIELD 8 4#+€; \ type du chasp. 5 MARGES € -- n) À coapte les arguaents de la ligne de cdes 
18 : TABLE : DOES) FLD-TYPE + @ EXECUTE ; DING @ BEGIN BL WORD CB MHILE 1+ REPEAT SAP 
11: PADDNUM € -- d ) PAD1- FLO-WIDTH OVER C! NOMBRE ; DH! ; 
124 7-1  (adr -- ) PAD SWAP FLO-WIDTH CHOVE ; DOER .DISPLAY \ vectorisation. 
13: S-1  (adr -- ) PADONUN DROP SWAP ! ; DOER DELAY 
143 D-t  {adr -- } PAD)NUM ROT 2! ; DOER HEADING 
19 TABLE (ENTER) =! S-1 D-! D-! : \ place entrées de chasp.  DOER AFFREC 
8 fi 
8 \ TABLES des fonctions dépendant du type. 28Mai87JaD \ Mots de modification de fichier. 18Hai87J a) 
1 
Ds SFORMAT (€ d -- adr u } DUP DR DABS (4 # & ASCII , HOLD 45  : SIGNAL 7 EMIT CR COUNT TYPE 
3  R) SION D ; \ affichage ‘d” sous forsat #ddd.cc. 55 VDO ." n’est pas un chasp valide." 48 VDO ; 
4 
5: T-TYPE  (adr -- ) FLD-NIDTH TYPE ; : CHANGE BEGIN CR 
6: S-TVPE À adr -- ) @ FLD-NIDTR R ; 5$ VDO ." Entrez le nos du chasp à sodifier.* 48 VDO CR QUERY 
T2 D-IVPE  Uadr -- ) 28 FLD-NIDTR DR ; BL NORD FIND WHILE-NOT SIGNAL REPEAT EXECUTE ENTER ; 
8: $-TYPE LU adr -- } 28 SFORMAT FLO-WIDTH DUP ROT - 
q SPACES TYPE ; : EFFACE 
1 ASCII # ADDRESS C' UPDATE -1 SACTIVE +! UPDATE ; 
11 TABLE DISPLAY T-TYPE S-TYPE D-TVPE $-TYPE ; 
12 : MODIFIE CR 55 VDO 
15 ." Entrez C pour changer ou E pour effacer un enregistresent.* 
14 48 VDO KEY SP@ 1 UPPER OUP ASCII C = IF  DROP CHANGE 
15 ELSE ASCII E = IF EFFACE THEN THEN CR DELAY ; 


ee ——————— 


12 15 
8 \ tlots de conditions de recherche. 25Mai87daD \ Mots de gestion. 28Nai87JaD 
Î 
2 4 CONSTANT 08  \ nbr sax de conditions de recherche. 2 CHERCHE \ sot de gestion "utilisateur" 
3 FRON 
4 Q8 ARRAY LOGICALS tARGS 1+ 04 /NOD SWAP 
3 04 ARRAY OPERANDS . IF ." Trop d'argusents de recherche." 588 NS BOOT THEN 
& Q# ARRAY CONDITIONS CR HEADINB DUP G@-ARRAYS (FIND) ; 
7 : ET AND; 
8: TARGETS HERE 208 + ; : CUUR ; 
92 #TARGET OU i -- } 38 + TARGETS + ; \utilisation: CHERCHE JEDI SUJET EST LISP ET NUMERO SUPRA 15 
18: T-BRING (a -- ) TEXT PAD SWAP FLD-WIDTH CHOVE ; 
IL: E-BRING (a -- ) WORD NOMBRE DROP SWAP ! ; : DONE? ( -- f: vrai si pas d’autres entrées 
12: 2-BRING (a -- )} WORD NDMBRE ROT 2! ; CR 55 VDO ." autre entrée ? (O/N) * 4B VDO ?QUI NOT ; 


13 TABLE BRING T-BRING (-BRING 2-BRING 2-BRING ; 
14: GET-TARGET ( ÿ -- ) +TARGET BL BRING ; 


1$ 
13 16 

8 \ Mots de gestion. 18Mai87JaD \ Mots d'entrée dans le fichier. 22Hai97Ja 
l 5 NENFILE FROM @ ACTIVE !  G LASTREC ! ; 

2: G-ARRAYS (Un --] 2 FREE OU -- rech } LASTREC @ 1+ DUP 1 DO I REHGVED? 

3 C'1 NOOP @ LOGICALS ! IF DROP [ LEAVE THEN LOOP ; 

4 0 D0 L IF ? L LOGICALS ! THEN 5 NEXTREC (-- ) LASTREC & HACTIVE & } 

$ ? DUP I OPERANDS ! BODY ?FIELD ! IF FREE RECH ! ADDRESS REC-LEN BL FILL UPDATE 

6 ? 1 CONDITIONS ! H GET-TARGET LOOP ; ELSE LASTREC OUP @ L+ DUP READ SNAP ! UPDATE THEN 

7 5 MRITE 

8 : LOGIC {5 -- ) LOGICALS  PERFORX ; FIELD-LIST @ BEGIN DUP @ ?DUP NHILE ÆEXECUTE ENTER 2+ 
q REPEAT DROP ; 
18 : OPERAND  ( i -- } OPERANDS  PERFORK ; 
il : ENTRE #ARGS 1 €) 
12 3 CONDITION ( i -- } CONDITIONS PERFORN ; IF," Il se faut un nos de fichier ...* 580 HS BOOT THEN 
13 FROM BEGIN CLS CR CR CR NEXTREC MWRITE 1 HACTIVE +! 
14 : TARGET +TARGET ; UPDATE CR CR CR DONE? UNTIL 
15 SAVE-BUFFERS ; 


12 ni N° 36-ma 1981 


14 


8 \ Mots de gestion. 

1 

2: FOUND? (n--#) 

3 0 DO [D OPERAND 1 TARGET L CONDITION I LOGIC LOOP ; 
4 2 FROM V FROM €nos_de_fichier 

$ ? EXECUTE ; 

6: (FIND) (n--) 

7 BOSHITS ! LASTREC & ft 

8 DO I RENOVED? 

9 IF-NOT L REC ! Un) DUP FOUND? 

18 FL SHITS #1 CR DISPLAY CR DELAY 
11 FIN? @ IF FIN? OFF LEAVE THEN AFFREC À arrêt ’écr. plein’ : 
2 THEN THEN 
13  LOOP DROP HITS € IF-NOT 
14 CR 49 V00 ." Je n'ai pas trouvé..." 48 VDO 508 MS THEN ; 
15 


18 

4 \ Hots d'affichage de fichier. 28Nai87Jan 
l 

2 : EXTRAITS 

3 EXTRAITS BEGIN DUP 8 ?DUP MHILE EXECUTE 

4 .FIELD SPREAD 2+ REPEAT DROP 5 

St SELECT \'utilisations SELECT €nos_fich} (chaspt> ... chanpN) 
6 FRON EXTRAITS #ARES DUP 5) 

7 IF .* Trop d’argusents... " 508 MS BODT THEN 

8 0 DO ? OVER! 2+LODP 8 swap ! 

9 MAKE DELAY  NOCP 
19 AND MAKE AFFREC  SCRFUL? 
11 ;AND MAKE .DISPLAY EXTRAITS 
12 AND MAKE HEADING .HEADER ; 
13: CHAMPS À utilisation:<nos fich) N CHAMPS chaspl> <chanp2)... 
14 CHERE SWAP @ 00 ? , LO0P @ s FIELD-LIST : ; 
15 


19 
Mots d'affichage de fichier. 


Es. 


29Mai 87 ap 


.N556 
PRINTING OFF 
CR 55 VDO .* ENTER pour sortir 


ESC pour sodifier " 
Touche quelconque pour continuer * 48 VDO CR ; 


STEP 


MAKE DELAY  .NSS6 
KEY OUP 27 = IF DROP MODIFIE 
ELSE 19= IF CROSS VDO ." FIN de GESTION. " 48 VDG CR 
SAVE-BUFFERS FIN? ON EXIT THEN THEN 
SAND HAKE DISPLAY . RECORD 
SAND HAKE AFFREC  NOOP 
SAND NAKE HEADING NOOP ; 
STEP | affichage par défaut, 


28 
Application: index pour JEDI, 


= 


29Hai87Ja0 


188 500 48 FICHIER JEDI | Ig_enrg, nbr_sax enrg, n° ler ble. 
ALPHA 4 4 CHAW 
ALPHA 6 32 CHAMP 
SIMPLE 38 2 CHAMP 
SIMPLE 48 2 CHAMP 
ALPHA 42 5 CHAMP 
ALPHA 47 48 CHAMP 


SUJET 1 type,ler_oct,lgr,,nos du _chaap 
TITRE 

NUMERO 

PAGE 

DATE 

REN 


D O4 © En = Lui FI 


o 


JEDI 6 CHAMPS SUJET TITRE MUMERO PAGE DATE REM 

12 

13 \ NEWFILE JEDI 

14 18 Ce sot ne doit être exécuté que lors de la presière cospilati 
15 on du nouveau fichier, sais il doit alors l'être 1pérativesent, 


L 


23Nai87JaD | Affichage, 


17 
18Nai87JaD 


VARIABLE EXTRAITS 12 ALLOT À pointe sur le chap à afficher. 
: DASH-LINE CR 72 @ DO ASCII - ENIT LOOP CR ; 


5 HEADER IMPR? 
EXTRAITS BEGIN DUP 8 ?DUP MHILE DUP BODY 
"FIELD ! BODY) NAME DUP .ID C@ 31 AND FLD-WIDTH 


SWAP - ABS + SPACES 2+ REPEAT DROP DASH-LINE CR ; 


SPREAD FLD-TYPE IF ’FIELD @ BODY> DNAME Ce 31 AND 
FLD-HIDTH SNAP - ABS FLD-MIDTH + SPACES ELSE 2 SPACES 
THEN ; 


21 


\ APPUI, SAVCUR, 28Mai87Jal 


: APPUI 
CR CR 28 SPACES 55 VDO ." Appuyez sur une touche pour revenir 
au senu.* 48 VDO KEY DROP ; 


CREATE $FICH 12 ALLOT 


5 .FICH \affiche nos du fichier courant. 
81 AT 55 VDO #FICH COUNT TYPE 48 VDO 3 


5 #$FICH (6 adr Igr --- ) \ ajoute $FICH à La chaîne spécifiée 
2DUP  SFICH COUNT 2SWAP 12 - + SWAP CHOVE ; 


22 
\ GUVRIR. 18Hai87Ja9 
: QUVRIR CLS 
5 SAT." Quel fichier voulez-vous consulter ?* 
18 BAT," 1 - JED]." 
18 {8 AT ,” 2 - FORTH DIMENSIONS." 
18 12 AT ." 3 - REVUE UTILISATEUR IBM-PC." 
28 15 AT 55 VDO ." Votre choix ?' 48 VDO KEY 48- 
CAGE Â=: " JEDL* $FICH PLACE ; 
25: ° F-DIN "  $FICH PLACE H 
3=s* IBA-REV * #FICH PLACE 5: 
NOCASE =: RECURSE 5; 
CASEND ; 
PAS 
\ AIDE, 22Mai87Ja0 
: AIDE CLS .FICH 


49 VDO 28 1 AT." AIDE S" 48 VDO 
3 SAT." 1 - Un fichier doit être ouvert préalablesent à toute 
opération. * 

S 6 AT." 2- La recherche d'un/des enregistresent(s] se fait e 
n donnant une ou des clefis) de recherche, 4 au saxiaus pour ce 
pragrasse. Les clefs utilisables sontindiquées lors de l'appel 
des fonctions Recherche Norsale’ et ‘Recherche Sélec-tive’." CR 
5 SPACES ,° 3 - En Recherche Noraale, tous les enregistresents 

trouvés sant affichés l’un après l’autre.” CR 


S SPACES .* 4 - En Recherche Sélective, seules es chasps désig 
nês sont affichés." CR 


3 SPACES ." 5 - Le résultat des recherche peut tre envoyé à 1? 
isprisante : La fonction 5 est une bascule." CR --} 
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24 27 


@ \ AIDE, suite. 22Mai87Ja0 \ RECHERCHE. 18Mai87Ja) 
1 9 SPACES ." 6 - Les nodifications sur un enregistresent se font . 

2 en Recherche Noraale.” CR à SSELECT  ($ -- adr 19 } 

3 5 SPACES ." 7 - Extension du fichier : fonction 4." ER * SELECT " 4$FICH ; 

4 5 SPACES ." 8 - En cas d'erreur (sortie du prograase), rappelez 

S celui-ci par MENU’. ; : RECH-SEL \ recherche sélective. 

ë CLS 5 2 AT." Seuls sont affichés les ’chasps” que vous choi 
17 sissez s “ 10 5 AT .CHANPS 

8 | DIN OFF SSELECT DUP BTIB ! TIR SWAP CHOVE 

9 CR CR ." Entrez les clefs’ de sélection :° CR CR 
18 SINTERP RECH ; 

il 
12 
13 
t4 

15 

25 28 


\ ENTREE. 29Mai87Ja \ RECHERCHE. 29Mai87Ja) 


[] 
! 

2 #EXEC  (S adr 1g -- )  \ exécute 1a consande ’chaînée”. : RECH-NORH 

3 DUP ATIB:® TIB SMAP CHOVE BLK OFF DIN OFF INTERPRET ; STEP CLS 3 2 AT ." La recherche se fait selon les critères, : 
42 #ENTRE (8 -- aër ig ) \ crée la chaîne ENTRE €nos-fichier} ou clefs : " 185 AT .CHANPS CR CR 

5 * ENTRE " +##FICH ; 5 SPACES ." Vous pouvez en utiliser au sanisus 4 siaultanésent, 
ë séparées par l’un des ‘filtres’ : EST, NESTPAS, ET, OÙ, SUPRA, 
72 SOPEN  \ ouvre le fichier application’ : METTEZ SON NON ICI INFRA." 

8 " OPEN B:FBAGEII.BLK" $EXEC ; CR CR ." Ex.t SUJET EST FORTH ET NUMERO SUPRA 25" 

9 RECH ; 

18 : .CHAMPS À affiche les nons des chasps du fichier courant. 

it FIELD-LIST @ À adr liste _chasps } 

12 BEGIN DUP 8 ?DUP HHILE 

13 NAME DUP L+ SWAP C@ 31 AND {5 -- adr 19) 

14 BOUNDS DO 1 C@ 127 AND EMIT LODP \ supprise bit 7. 

15 CROCR 18 SPACES 2+ REPEAT DROP ; 


2b 2 
@ \ RECHERCHE. 28Mai87JaD \ Modification/Suppression d’un enregistresent. 29Mai87da 
l 
25 SCHERCHE (5 -- adr 19 } : NODSUP \ 'aode d'eaploi’. 
3 * CHERCHE " #FICH ; CLS 
LU $ 5 AT ." Pour sodifier ou suppriser un enregistrement lune fi 
Sos SINTERP À interprète cossande entrée au clavier, che), utilisez l'option ’Recherche norsale’ du MENU." CR 
b TIB #TIB @ + 88 EXPECT SPAN @ ATIB +! 5 SPACES ." Lorsque vous avez trouvé L'enregistresent, utilisez 
] TIB #TIB @ SEXEC ; les touches ESC’ et  ’C' où ’E’ selon le cas." CR CR 
B É 5 SPACES ." Pour ajouter un/des enregistresent(s) au fichie 
9 : RECH \'recherche selon critères donnés. r ouvert, utilisez la fonction ‘Extension du fichier’ du HENU. 
18 DIN OFF $CHERCHE OUP 4TIB ! TIR SNAP CHOVE * APPUI ; 
Il \ place "CHERCHE XNA’ début TIB, 


12 CR CR ." Entrez les ’clefs’ de recherche : * CR CR 
13 SINTERP ; 


38 35 
8 \ SORTIE. 18Nai87Ja) \ MENU ; 28Mai87J ai 


: SORTIE \ retour sous FDRTH. : MENU \ MENU général, Lancé par BOOT. 
LS 55 AT 55 VDO ." Etes-vous sûr ? (0/N1 " 48 VDO ?OUI PRINTING OFF CHOIX KEY 48 - 


Î 
2 
3 
4 
5 48 VDO CR CR QUIT THEN ; 
6 
7 
8 


1F 5 @ AT 55 V06 .” Sortie de FRASEII et retour sous FORTH” CASE 1 =: OUVRIR ;; 
2 =: RECH-NORN ;; 
3 =: RECH-SEL APPUI ;; 
: 206? \retour sous DOS. 4 =2 SENTRE SEXEC ;; 
CLS 55 VDO 18 10 AT ." Etes-vous sûr ? * 48 VOD ?QU] 5 =: HODSUP ;; 
9 {F CR 49 VDO .” ON SORT" 48 VDO BYE THEN ; b =t IMPRIME ;; 
18 T=t AIDE APPUI ;; 
il 9 =: SORTIE ;; 
12 8 =: 0067? ;; 
13 CASEND  RECURSIVE HENU ; 
14 
15 
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4 #4 


. \ lapression. 18Nai87JaD NOTES sur la vectorisation. 29Mai97Ja0 
2 : IMPRIME \ bascule d’ispression. Les sots d'exécution vectorisée DOER et MAKE de 

3 CLS 49 VDO 18 18 AT l'écran #2 sont tirés de THINKING FORTH par L. BROPIE. Ils 

4 IWR & sont utilisés ici, au lieu des DEFER et IS de FB3 car ils 

$ IF IMPR OFF .° Pas d’ispression" proposent une séthode différente et parfois subtile (voir 

6  ELSE IMPR ON ." Tapression" la définition de STEP de l'écran #19) de vectorisation. 

7 THEN ." des résultats de la recherche. * 

8 APPUI 3 DOER (sot} à la cospilation, crée L’entête (ant) et place dans 
? son PFA le CFA de NOOP; 
18 à L’exécution, place sur RP l'adresse contenue dans 
it le CFA de (act), 
12 MAKE <aot_1 (aot_2> vectorise (aot_1) sur {aot_2) {c. à d. 
13 exécute <aot_2) à 1’ap el de (aot 13) 
14 Ces sots peuvent être reapiacés par DEFER et 5, dans les 
15 écrans 19, 18 et 19. 

32 35 

0 \ CHOIX 16Nai97JaD NOTES sur la syntaxe des sots ’utilisateur”’. 29Mai87J ab 
1 

2: CHOIX CLS .FICH CREATION d’un fichier (cé écr. #28): 

3 281 AT49V00." HENU * 48 VDO 1g-enr ,nbr-eax,ler-blc FICHIER (nos-fich) 

4 18 SAT." 1- Ouverture d'un fichier." type,ler-oct,lg CHAMP <(chaapt) 

S 18 7 AT.°2- Recherche norsale.* type,ler-oct,lg CHAMP (chaap2) 

6 18 AT." 3 - Recherche sélective. * ages 

1  IS1H AT." 4 - Extension du fichier." Cnos-fich)> nbr chasps CHAMPS (chasp_1> (chan 2) 

8 1813 AT." 5 - Suppression d'un enregistresent.* 

7 BIS AT." 4 - [apression des résultats, * UTILISATION : 

19 18917 AT .° 7 - AIDE." Node STEP (4 argusents de recherche au saxiaus) 

11 49 VDO 13 19 AT ." 9 - Retour sous FORTH. * CHERCHE (nos_fich) (chaeg_K) CEST,NESTPAS] (valeur ) 

12 15 21 AT." B- Sortie vers DOS." 48 VDO CET,OU] <chaap_Y} CEST,NESTPAS, SUPRA, INFRA] (valeur) 
13 28 23 AT 55 VDO . Votre choix ? * 48 VDO ; Mode SELECT (5 chaaps affichés au saxiaus) 

14 SELECT <nos_fich) (chasp_1} <chaap_2> ... <Cchasp_N) 

{5 puis cosse pour STEP. & 


EDITIONS LOISITECH 
Centre Commercial 
Terminal 93 
93106 MONTREUIL Cedex 


FORTH 83-Standard 
pour tous systèmes CP/M 
et MSD06S. 


Enfin, un manuel très complet 
expliquant tout Le standard F83 
tel qu’il est fourni pour tes 
versions MSD0S et CP/M. 


Chaque mot du dictionnaire est 


expliquée et selon son 
utilisation, illustré par des 
exemples d'utilisation et 


d'exécution. 


Cet ouvrage sera Le complément 
indispensable pour travailler 
DE RE efficacement avec F83. 
Marc Petremann : ” 1 
Jean-Marie Premesnil ; me cs Attention, prix spécial 
de ADO S adhérent JEDI: 120 Fr port 


AUER ; ; 
: (SOURC L compris. 
UD. (UD. 
; ; : ds DE SIGNW  # 4 | 
NULIBER R SUHBER UTILE VE DOUBLE ? à Prix public: 140 Fr + 10,30 Fr 
{LOAD) AUL à À S  EHPTY-BUF ; e frais de port. 
BLOCK  (BLOCK) ? DISCARD U ; d à p 
LATEST? ? CAPACITY si FILE? .FILE  WRITE-B ; 
> 5 perrER#  >END  >BUFFERS  INIT-RO 15 
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VARIABLES CHAINES EXECUTABLES 

par Michel ZUPAN 
La présente étude tente de répondre à quelques unes des 
propositions emises par Marc PETREMANN dans Le numéro 33 
de JEDI concernant La génération de commandes FORTH à 
partir de chaines de caractères. 


L'ensemble est developpe en F83 pour des raisons qu'on 
aura aucun mal à saisir au vu des nombreux mots et 
concepts pris dans ce standard. Je crains même que Sa 
transposition pour d'anciens FORTH, toujours possible 
bien sûr, ne 5e révèle parfois délicate. 


Reprenons Le principe de L'exécution (Cinterprétation 
serait un terme plus juste) d'une chaine explicite FORTH. 


Soit La constante chaine suivante: 


: TEST * DARK WORDS * ; 

TEST TYPE affiche DARK WORDS 

TEST EXECUTES efface L'écran et 
vocabulaire courant. 


Liste Les mots du 


premire définition de M.P. rappelée 
dans Le premier écran et qui consiste à déplacer La 
chaine dans Le TIB (tampon du terminal d'entrée), Le 
contenu de celui-ci est modifié, ce qui est assez génant. 


Si nous gardons La 


Ainsi, La Ligne suivante: 


TEST EXECUTES CR .€ L'ai-je bien descendu? ) 


ne fonctionne pas correctement. De méme, La commande ne 
peut être placée dans un écran sans interrompre son 
interprétation. 

En F83, La sotution consiste à détourner provisoirement 
La SOURCE (adresse et Longueur) à interpréter vers notre 
chaîne, Laquelle sera délivrée par une pseudo-constante 


chaîne STR$. Une fois celle-ci interprétée, on restitue 
La source d'origine avec son pointeur d'interprétation. 


EXECUTES qui 
Le TIB n'est 


version de 
La première: 


C'est ce que propose La seconde 
corrige Les inconvénients de 
ptus modifié. 

Malheureusement, cette seconde version 5e révèle bien 
plus dangeureuse que La première! Essayez: 


: TEST2 * N'IMPORTE QUOI * ; 

TEST2 EXECUTES 
Vous pouvez éteindre La machine! L'interpréteur est 
bloqué dans TEST2 et rien ne peut L'en faire sortir. 


toutes Les procédures 


jamais déplacer 
sans une gestion 


D'où La règte absolue valable pour 
de “méta-interprétation*: ne 
L'interpréteur sur une autre source 

adéquate des erreurs pouvant y survenir. 


La procédure est en fait assez simple: outre SOURCE, it 
faut détourner ?ERROR pour que soit restituée en cas 
d'erreur La source d'origine. On utilisera également une 
variable pour conserver et restituer Le pointeur DIN 
d'interprétation. 


une troisième version de EXECUTES 
toutefois encore des rê- 


Le second ècran donne 
enfin acceptable. Méfiez-vous 


A-STRINGVAR.BLK / SCRN# 1 


@) \ interprétation et exécution d'une chaîne 


1) ONLY FORTH DEFINITIONS DECIMAL 
2) : EXECUTES € adr len --- } 

DUP #TIB | 

TIB SWAP MOVE 


PS PS PSS PS PS PP PSS PS 
& 
LA 


+ BLK OFF DIN OFF ; 
) 
7) @ @ 2CONSTANT STRS$ 
B) : EXECUTES € adr len --— ) 
9) [’] STR$ >BODY 2! 
(19) L'1 STRS$ IS SOURCE 
(11) >IN DR DIN OFF 
(12) RUN 
(13) [1 (SOURCE) IS SOURCE 
(14) RD DIN ! ; 
(15) 


\ 
\ 
\ 


entrances d'interprétation (oh que 
comme de ptacr un QUIT à La fin de TEST 
assez drole): Le F83 n'a pas tout prévul!. 


c'est vicieux Ça) 
(essayez, c'est 


Passons aux variables chaines qui peuvent désormais être 
considérées comme autant de tampons d'interprétation 
(entre autres applications): 


2 7 THRU compile L'ensemble des outils proposés. 
aussi bien en 


déplaise au F83 
mixité (voir ." 


est redéfini pour fonctionner 
interprétation, n'en 
genre de 


* (quote) 
compilation qu'en 
qui semble ne guêre priser ce 
et -C). 


STRING définit une variable chaîne selon Le cahier des 


charges de M.P. 

80 STRING A$ 
crée un tampon de 80 caractres maximum, vide à 
L'initialisation et qui peut ètre rempli par L'opérateur 
d'affectation $! 

* 60 FORTH° A$ 5! 
LENS détivre La tongueur maximate d'une variable chaîne. 
INPUTS affecte une variable chaine depuis Le terminal. 
RIGHTS, LEFT$, MID$ sont aisés à-reconnaître. 

At 5 RIGHTS TYPE affiche FORTH 

As 2 LEFTS TYPE affiche 60 

At 3 4 MIDS TYPE affiche FORT 


ITEM isole un mot séparé par des espaces (Ndir: ce mot 
est à rapprocher du fonctionnement de ITEM en LOGO...): 


ns 2 ITEM EXECUTES exécute FORTH 
INSERT$ insére une chaine dans une variable: 

“ on" A$ 2 INSERT$ AS TYPE affiche 6000 FORTH 
APPENDS rest L'opérateur de concaténation: 

® AND MULTIPLY !* A$ APPEND 
ERASES efface une portion de chaine: 


a$ 2 2 ERASES 


As TYPE affiche 60 FORTH AND MULTIPLY ! 


SEARCH$ cherche La premire OCCUrENnCE d'une sous-chaine 


* AND " AS SEARCHS 
DROP A$ ROT LEFTS TYPE affiche GO FORTH 


DELETES complète ERASES en effaçant une sous-chaine dans 
une variable: 


As 2 ITEM A$ DELETES 
as TYPE affiche 60 AND MULTIPLY ! 


Reste à expliquer à L'interpréteur FORTH comment 


exécuter cette sentence biblique! 


25avr87 M2 


lère version 


déplace ia chaîne dans TIB 


2ème version 


vectorise SOURCE sur STRS$ 


rétablit SOURCE et 2IN 
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25avr87 M2 


\ gestion des erreurs dans 
\ une SOURCE temporaire : 
\ restitue SOURCE d'origine 


\ 3ème version 


\ avec gestion d'erreurs 


25avr87 Me 


en compilation 
en exécution 


mot de définition d'une 
variable$ chaîne 

de longueur maximale 
lenmax 


affectation sécurisée 
d'une variable chaîne 


25avr87 MZ 
longueur d’une variables 
de type chaîne 


entrée au terminal 
d'une variable$ chaîne 


fonctions sécurisées : 
partie droite 


partie gauche 


sous-chaîne 


25avr87 Me 


isole le n-ième ‘mot’ 
Séparé par des espaces 
dans une chaîne 


laisse une chaine vide 
si hors limites 


25avr87 M2 
inserre une chaîne dans 
une variablef à la 
position pos 


ajoute une chaîne à la 
fin d'une variables 


A-STRINGVAR.BLK / SCRN# 2 
( 6) \ Interprétation et exécution d'une chaîne 
C 1) @ G 2CONSTANT STRS$ VARIABLE OIN) 
€ 2) : ?ERRORS$ © adr len flag --- ) 
€ 3) DUP 1F 
€ 4) [')] CSOURCE) IS SOURCE 
€ 5) ['} C?ERROR) IS ?ERRDOR 
€ 6) COIN) @ >IN ! THEN C?ERROR) ; 
€ 7) : EXECUTES € adr len --- ) 
€ 8) [') STRS >BODY 2! \ - 
€ 9) (°}1 STR$ IS SOURCE 
(19) ['J ?ERRORS IS ?ERROR 
(11) >IN © CIN) ! DIN OFF 
(12) RUN 
(13) ['} C?ERROR) IS ?ERROR 
(14) {'] (SOURCE) IS SOURCE 
(15) OIN) @ DIN ! ; 
A-STRINGVAR.BLK / SCRN# 3 
€ 8) \ Variables chaînes 
C 1) 
(29%: C <text”"> --- adr lien ) 
€ 3) STATE © 1F COMPILE C*) ,* \ 
€ 4) ELSE ASCII * PARSE \ 
: 5) THEN ; IMMEDIATE 

6) 
C 7) : STRING ( <Var$name> lenmax -—- ) \ 
( 8) C --- adr len ): \ 
€ 9) CREATE DUP C, @ C, ALLOT \ 
(19) DOES> 1+ COUNT ; \ 
(11) 
(12) $! € str strvar --- \ 
(13) DROP j1- DUP 1- C@ rot MIN \ 
(14) SWAP PLACE ; 
(15) 
A-STRINGVAR.BLK / SCRN# 4 
( @) \ Principales fonctions sur chaînes 
( 1) : LENS € strvar --- strvar lanmax ) \ 
C 2) OVER 2- CR \ 
€ 3) 
C 4) : INPUT$ € strvar --- ) \ 
€ 5) OVER DR LENS NIP EXPECT \ 
€ 6) SPAN @ R> 1- C1! ; 
€ 7) \ 
€ 8) : RIGHTS € stri len --- str2 ) \ 
a : @ MAX OVER MIN DR + R&B - R> ; 
(11 : LEFT$ © strl len --- str2 ) \ 
(12) @ MAX MIN ; 
(13) 
(14) : MID$ € strl pos len --- str2 ) \ 
(15) >R OVER SWAP - RIGHTS R> LEFTS ; 
A-STRINGVAR.BLK / SCRN# 5 
€ 8) \ Extraction d'un mot d'une chaîne 
€ D 
€ 2) : ITEM € Strl n --- str2 ) \ 
{ 3) 1 MAX DR TUCK RD \ 
€ 4) 8 DO ROT DROP \ 
€ 5) BL SKIP OVER SWAP 
€ 6) BL SCAN \ 
C7) LOOP \ 
€ 8) DROP OVER - ; 
€ 9) 
(10) 
C1) 
(12) 
(13) 
(14) 
(15) 
A-STRINGVAR.BLK / SCRN#H 6 
{ @) \ Operateurs sur variables chaînes 
€ 1) : EINSERTS$ © Str Strvar pos - - ) \ 
€ 2) @ MAX OVER MIN \ 
€ 3) —ROT LENS SWAP . \ 
{ 4) 4 PICK + OVER MIN ” 
€ 5) 2 PICK !- C' 
C 6) 2 PICK - DR + R> INSERT ; 
€ T7) 
€ 8) : APPEND$S € str strvar -:- } \ 
€ 9) DUP INSERTS ; \ 
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A-STRINGVAR.BLK / SCRN# 7 


8) \ Opérateurs sur variables chaînes 25avr87 M2 


€ 

{ 1) : ERASES © strvar pos len --- ) \ détruit lien caract. 
€ 2) >R 6 MAX OVER MIN \ à la position pos 
€ 3) 2DUP -— R> MIN @ MAX \ dans une variables 
(€ 4 2 PICK OVER - 4 PICK 1- C! 

€ 5) ROT OVER - 2 PICK - 

€ 6) >R -ROT + TUCK + SWAP 

C7) R> CMOVE ;; 

€ 8) 

€ 9) : SEARCHS € str strvar --- pos len ) \ cherche une chaîne 
(18) 2 PICK DR SEARCH \ dans une variables 


IF R> ELSE R> 2DROP 6 O@ THEN ; 


détruit une chaîne 


(13) È DELETES Ç str strvar --- ) 
dans une variables 


(14) 2DUP DR >R SEARCHS$ 
R> R> 2SWAP ERASES ; 


ré 


SOFTWARE COMPOSERS 


“['m delighted to see Software Composers’ board on the market. It provides incredible capability and versatility 
‘with minimal parts, size, and price. An excellent introduction to the new generation of hardware and 


software.” 
Chuck Moore 


November, 1985 


THE 
DELTA 
EVALUATION 
SYSTEM 


The Delta Evaluation System is the fir 
able for the Novix Forth chip. The De 
assembled, tested, and ready to use wi 


st low cost evaluation system avail- 
Ita Evaluation System comes fully 
th a 90 day warranty. The system 


includes the SC-1000CPU Delta Board, a terminal connector and cable, a 
wall mount power supply, a 5-volt regulator base board, and user manual. 
Orders are filled on a first come, first served basis. 


e 
…. 


Ready to use — 
just turn it on and start development!! 


DELTA EVALUATION SYSTEM INFORMATION 


+ 4 Mhz Delta Board with Novix NC4000 Forth Chip on board. 

+ cmFORTH programming language in EPROM with listing and glossary. 

° Complete hardware documentation including schematic, timing diagrams, and theory of operation. User 
bulletin board support. 

+. 4K 16-bit words of static RAM and 4K 16-bit words of EPROM with fully decoded memory addressing. 


e 8 (strip jumper) selectable 256 word data stacks and 8 selectable 256 word return stacks for multi-tasking. 

e 21 independently programmable single bit LO ports. 

e The Delta Board is 4%” x 61" and has a 72-pin edge-connector bus using all major Novix signals. 

e The Delta Board plugs into a 72-pin connector attached to a 5-volt Regulator Base Board with a wall mount 
power supply. 

« Reset switch and serial port on board with a cable and connector. 

e Hardware buffering for serial port and reset switch with by-pass capacitors and sockets for all chips. 


e Delta Board compatible multi-socket back plane. 56K memory board, and SCForth development language to 
be announced. 

The Delta Board is a single bus development system oriented product from which you can incrementally 
upgrade. 

° Novix chips available to Delta Board customers. Software Composers is an authorized Novix Distributor. 


210 California Ave., Suite F, Palo Alto, CA 94306 € (415) 322-8763 
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APL 


RECREATIONS APL 
LE PGCD 
par F. ESPINASSE 


L'APL est un Langage récursif, c’est à dire qu'une fonction 
peut s'appeler elle-même. Pour illustrer La récursivité 
d'un Langage, un exemple classique est L'écriture d'une 
fonction factorielle. Malheureusement (Cou heureusement) La 
factorielle est en APL un des opérateurs de base, et il ne 


parait pas profitable d'écrire un fonction qui réalise ce 
qu'on peut programmer par un simple point d'exclamation ! 
(de même pour L'inversion de matrice qui se programme par 


un Symbole domino). IL ne nous reste plus 
rabattre sur Les tours de Hanoï ou sur Le PGCD. 


qu'à nous 


Le PGCD (Plus Grand Commun Diviseur) de deux nombres 
entiers, X1 et X2 peut se calculer par L'algorithme 
d'Euclide, qui s'appuie sur La remarque suivante: si L'on 
Suppose X1 £ X2, il y a deux cas possibles: 

cas, il est Le 


1) X1 divise X2 sans reste, dans ce. 


nombre cherché; on s'arrête Là. 


23 X1 ne divise pas X2, dans ce cas, Le PGCD de X1 et 
X2 sera trouvé en recherchant Le PGCD de X1 et de (Xx2 
modulo X1); d’où La récursivité. 


X2 modulo X1 est Le reste de La division de X2 par X1 et 
s'écrit en APL: 
X1 : X2 

La fonction PGCD pourra s'écrire: 

ZePSCD xin | 

A Calcul du Plus Grand Commun Fiviseur de #11] et x[a)] 
nement sie esse 

a soit © le plus petit. et À Le Fius grand des ë nombres 

Zeit, x 

Aer: x 


n Remarque! 11 se peut que A=Z . 
n 51 2 divise HA modulo Z ast nul) le résultat cherché est 2 :STÜP 


+t02Z14);0 
A Sinon le résultat est le PUCD de 2 ot de à modulo Z 
Z+FSCD ZZIA : 


Nous ne La détaillerons pas, car elle est parfaitement 
Lisible (les commentaires ne sont pas écrits en japonais). 
Mais nous ferons cependant quelques remarques: 


- Le paramètre d'entrée X doit être un vecteur à deux 
éléments, c'est à dire que L'appel de La fonction devra 
comporter Le nom de celle-ci suivi de deux nombres 


entiers, Séparés par une virgule ou par un espace. 
Exemple: 

P6CD 30 40 
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- L'en-tête de La fonction comprend Le nom de La variable 
A précédé d'un point-virgule. Celà ‘veut dire que La 
variable A est Locale. Elle n'a d'existence que pendant La 
période d'activation de La fonction. Elle ne peut être 
accédée par une fonction appelante. Celà a pour effet de 
ne pas mélanger enmémoire une variable d’une fonction 
appelée avec La variable homonyme de La fonction appelante 
ENdlr: c'est Le cas d'à peu près tous (Les langages, 
excepté BASIC... quoique Les dernières versions, style 
QUuickBASIC...). IL est sage de localiser systématiquement 
toutes Les variables d'une fonction, sauf besoin 
particulier. Une variable globale (non (Locale) est 
a5similable à un COMMON de certains Langages. 


- En ce qui concerne Le passage de paramétre(s) entre 
fonction appelante et appelée, il faut savoir que La 
fonction appelée ne travaille pas sur La valeur en mémoire 


du paramêtre, mais sur une copie. IL n'y a donc pas 
d'effets de bord en APL, Sn 
Pour nous distraire encore un peu, nous pourrons écrire 


PPCM pour calculer Le Plus Petit Commun 
Multiple de deux nombres. Pour celà, nous écrirons que Le 
PPCM de deux nombres est égal à Leur produit divisé par 
Leur PGCD — 


une fonction 


CO  ZePFCN à 
Ci] on Caleul du Plus Fetit Commun Multiple de *[1] et :[2] 


C33 Zéro xePScD x 
Nous attequerons Les Tours de Hanaï avec Le prochain 


Retour du Jedi (Ndir: attention, il vous attend avec Le 
même sujet en FORTH au détour). 


INDEX THEMATIQUE 


Cet index reprend Le contenu des numéros de La revue JEDI 7 
à 35. En face de chaque rubrique figure entre parenthèse Le 
numéro de La revue où est paru L'article concerné. 


APL 
APL sur micros (26) 
crible d'Ertathosthène (34) 
demystifier APL (21) 
gestion de tableaux (31) 
notions de fonctions (32) 
première approche (28) 
RSTRONOMIE 
La Lumière des astres (9) 
Les comètes (8) 
coBoL 
sur APPLE II sous CP/M (17) 
deASEII 
présentation (35) 
FORTH 
Le Langage Blaise, 1er épisode (26) 
amélioration du ZX-Forth (12) 
assembleur 6502 (10) 
assembleur 6809 ère part (34) 
assembleur 6809 2ème part (35) 
assembleur 8080 (14) 


conversion AN/NR (21) 
conversionttransfert fichiers texte (33) 
copie écran texte vers ’hires’' (9) 
DEFER en 79-Standard (21) 
désassembleur 6502 (17) 

éditeur plein écran F83-6809 

éditeur plein écran pour AMSTRAD (25) 
éditeur plein écran pour AMSTRAD (31) 
exécution vectorisée (29) 

Expert2, applic.au bâtiment (24) 
extraction de racine (27) 

f8ASE II pour DRIC ATMOS (35) 

fonct sinus, tracé arc de cercle (28) 
fonction DUMP pour JUPITER ACE (9) 
fonctions graphiques F83 AMSTRAD (31) 
fonctions trigon. (10) 

Farth sur AMSTRAD (14) 

Forth sur THOMSON TO7 (8) 

FORTHLOg (23) 

génération commande F83 depuis chaine de car (33) 
gestion calendaire (14) 

gestion clavier en F83 (30) 

gestion des fichiers en F83 (31) 
gestion données avec fBASE I (21) 
horloge temps réel pour IBM (31) 
horloge temps réel pour TO7-70 (25) 
impress.graph.multi-écran HRX (31) 
initiation cours n°3 (7) 


assembleur 8086 minimal (21) initiation, cours n°4 (8) 
Chaînage voc.en Fig-FORTH (24) initiation, cours n°5 (9) 
chaînes de caractères (32) initiation, cours n°6 (10) 
complément au prog du no30 (33) initiation, cours n°7 (11) 
composeur téléphonique à FV (17) initiation, cours n°8 (13) 
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INPUT en F83 (32) 
La maitrise du graphisme (34) 
La programmation structurée (28) 
La récursivité (16) 
La vectorisation (20) 
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Le Langage Blaise, 2e part (27) 
Le Langage Blaise, 3e part (28) 
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Les variables Locales (25) 
Les variables locales (26) 
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micro-traitement de texte (20) 
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programm.robot MULTISOFT (32) 
programmation piles et registres (27) 
R2 R2 RS (34) 
R4 R8 (35) 
racine carrée 16/32 bits (32) 
recopie écrans TELETEL pour THOMSON (14) 
redéfinition de caractères (14) 
règle à calcul (20) 
résumé commandes éditeur F83 (26) 
routines générales (28) 
sauvegarde blocs AMSTRAD PCW 
sauvegarde de code compilé (15) 
sculptures sonores (20) 
simulation en Logique pneumat. (15) 
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structures de données PL/1 (31) 
structures Pascal en FORTH (7) 
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traitement de texte sur ORIC1 (10) 
traitement de texte sur ORIC1 (6) 
traitement de texte sur ORICT (9) 
traitement des ensembles (25) 
transmission morse (11) 
un décompilateur récusrif (16) 
un métacompilateur simple (35) 
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VoiksFORTH83 pour ATARI (35) 
INTELLIGENCE ARTIFICIELLE 
bases de données et syst.exp. (16) 
bases de données et syst.exp. (28) 
FUTURLOG et FUTURSYS (27) 
FUTURLOG, 2ème Leçon (26) 
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rédactor (35) 
LANGAGE C 
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introduction (8) 
KERMIT (18) 
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traitement propositions Logiques (20) 
LOGO 
OR LOGO sur AMSTRAD (11) 
Les Listes et Leur traitement (7) 
notions de variables locales (11) 
programme de ‘mailing’ (8) 
une gestion de fichiers (31) 
LPA 
Le Langage (13) 
LPB 
10ème lLeçan (26) 
ère Leçon (10) 
2ème Leçon (11) 
4ème partie (14) 
Sème Leçon (15) 


Gème Leçon (16) 
7Zèmé“Leçon (18) 
ème partie (20) 
gème Leçon, compilateur musical (24) 
cotonisation d’un IBM PC (28) 
Le Langage (9) 
MATHS 
arithmétiques entiers équilibrés (33) 
Le codage de Huffman 
relation de pré-équivatence (15) 
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MOOULA2 
une implantation particulière (16) 
MUMPS 
10ème partie (25) 
ère partie (14) 
2ème partie (15) 
4ème partie (17) 
5ème partie (18) 
7ème partie (20) 
8ème partie (21) 
dernière partie (27) 
La commande de boucle (24) 
Le Langage (9) 
Les entrées sorties (26) 
PASCAL 
compresseur de fichiers (32) 
conversion ASCII-EBCDIC (9) 
décompr.codage Huffman, suite (33) 
édit.fichiers compress.codage Huff (34) 
fonctions graphiques pour AMSTRAD (20) 
Lecture formatée chaînes car. (15) 
Les chaînes de caractères (13) 
Les variables du Pascal (11) 
Lien de bibliothèque (30) 
poignée de tools en turbo (26) 
présentation du Langage (7) 
tracé de profil d'aile (C8) 
un menu à La carte (17) 
PROLOG 
aide au diagnostic (27) 
génération grilles de LOTO (34) 
opérations arithmétiques (29) 
vérificateur règles de dessin (30) 
QUESTIONS /REPONSES 
Q3 04 Q5 Q6 Q7 Q8 Q9 (33) 
SYSTEME 
La Liaison PERITEL (12) 
La Liaison RS232C (16) 
La Liaison série (9) 
La Liaison téléphonique (10) 
moniteur du T09+ (33) 
un dépéritelisateur (7) 
TELEMATIQUE 
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annuaire des services (7) 
Les commandes du MINITEL (12) 
réseaux et codes TRANSPAC (32) 
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